Help for this page

Select Code to Download

Select or download this

$ perl -e '
> $str = q{CATINTHEHATWITHABATATINAAAT};
...
Found TAT, length 3 at offset 18 to 20
Found NAAAT, length 5 at offset 22 to 26
$