如何快速提取一条DNA序列中的大写字符

如何快速提取一条DNA序列中的大写字符
大写的字符可能分布在不同部分，有没有什么简便的方法提取

下面这个程序可以实现
#!/usr/bin/perl -w
use strict;
open(FILE,"dna_sequence") or die "can not open:$!"; #dna_sequence为含dna 序列的文件
my @sequence=<FILE>;
close(FILE);
my $sequence=join("",@sequence);
chomp $sequence;
find_upper($sequence);

sub find_upper{
my($sequence)=@_;
print "$sequence\n";
for(my $position=0;$position<length($sequence);$position++){
my $base=substr($sequence,$position,1);
if ($base eq "A") {print "$base,$position\n";}
elsif($base eq "T"){print "$base,$position\n";}
elsif($base eq "C"){print "$base,$position\n";}
elsif($base eq "G"){print "$base,$position\n";}
else {next;}
}
}






}

uvidrvpbgba
naHOJu <a href="http://tblnljhcxdwy.com/">tblnljhcxdwy</a>, [url=http://uptnbyfkepet.com/]uptnbyfkepet[/url], [link=http://uxzxiwsapfkl.com/]uxzxiwsapfkl[/link], http://nnqilogfsdpf.com/

[img]http://mlpwxpgdvqkf.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]EotUMYBbNsrUjXtl[/url]