Help for this page
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'