Help for this page
>perl -wMstrict -le "my $seq = 'xxxTATAATGyyyTatAtAtzzz'; ... " matched 'TATAATG' at pos 3 matched 'TatAtAt' at pos 13