Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $Dna1 = qq{AACAGCACGGCAACGCTGTGCCTTGGGCACCATGCAGTACCAAACGGAACGATAG
+TGAAAACAATCACGA\n};
...
pattern C[AG]G matched @ offsets 7 thru 10, 3 long
pattern C[AG]G matched @ offsets 34 thru 37, 3 long
pattern C[AG]G matched @ offsets 44 thru 47, 3 long

c:\@Work\Perl\monks>perl -wMstrict -le
"my $Dna1 = qq{AACAGCACGGCAACGCTGTGCCTTGGGCACCATGCAGTACCAAACGGAACGATAG
+TGAAAACAATCACGA\n};
...
matched 'CGG' @ offsets 7 thru 10, 3 long
matched 'CAG' @ offsets 34 thru 37, 3 long
matched 'CGG' @ offsets 44 thru 47, 3 long