Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s1 = '---DAAAGLRG--G--G-P-LT-IGGY';
...
'...XXXXXXXX..X..X.X.XX.X..X'
'DAAAGLRGGGPLTIGGY'
'XXXXXXXXXXXXXX..X'