GTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATC #### GTTTCTCCCATCTCTCCATCGGCA ATC #### my $seq = 'ATGATGTGATGA';