Select Code to Download

c:\@Work\Perl\monks\pearllearner315>perl -wMstrict -le
"my $seq = 'CCCAAAAAAAAAAAAAAAAAAAAAGGTTGGCCGGAAA';
...
'AAAAAAAAAAAAAAAAAAAAAGG'
'AAAAAAAAAAAAAAAAAGGTTGG'
'AAAAAAAAAAAAAGGTTGGCCGG'

c:\@Work\Perl\monks\pearllearner315>perl -wMstrict -le
"my $seq = 'GGGGGGGGGGGGGGGGGGGGGGGGGGGCCCAAAAAAAAAAAAAAAAAAAAAGGTTGGC
+CGGAAA';
...
'AAAAAAAAAAAAAAAAAAAAAGG'
'AAAAAAAAAAAAAAAAAGGTTGG'
'AAAAAAAAAAAAAGGTTGGCCGG'

c:\@Work\Perl\monks\pearllearner315>perl -wMstrict -le
"use List::MoreUtils qw(uniq);
...
'AAAAAAAAAAAAAAAAAAAAAGG'
'AAAAAAAAAAAAAAAAAGGTTGG'
'AAAAAAAAAAAAAGGTTGGCCGG'