Help for this page
GTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATC
GTTTCTCCCATCTCTCCATCGGCA ATC
my $seq = 'ATGATGTGATGA';