Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $ppi_pm_seq = 'ACTGCCT';
...
'ACTACCT'
'ACTTCCT'
'ACTCCCT'

my $s = 'ATCGxTGAC';
my $foreign = $s =~ tr/ATCG//c;
print qq{foreign character in '$s'} if $foreign;