Re: extract only uppercases from string

[fisher]

Well, what did you try?

[losher]

ie. for the left string I have tried trick like:
if ($string =~ m/([ACTG]+).*[actg]/) {
print $1
}
and several other variations but all I get is an uppercase string till the first character other than ACTG.

[Anonymous Monk]

#!/usr/bin/perl --
use strict; use warnings; use Data::Dump;
$_ = 'G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA';
my @matches = "";
while( m{
    ([ACTG]+)# $1 is upper
    |
    ([actg]+) # $2 is lower
}gxsm
      ){
    if( $1 ){
       $matches[-1] .= $1;
    }
    if( $2 ){
       push @matches, "";
    }

}
dd \@matches;
__END__
["GGTGGAGCTG", "CCCTGCTACA"]