substr{ $$seq, $_, 12 ) =~ m[...] for 0 .. length( $seq ) - 12;