Select Code to Download

#!/usr/bin/perl
use strict;
...
   print pos( $str ) . ": $1\n";
   pos( $str ) = $-[0] + 1;      # slide pos back to the left
}

14: AGGGA
21: TACAT
25: GTTG
55: GAAAAAAAG
...etc...