$seq ~~ m:overlap/ GUAUG /;

    say "Found ", +@$0, " at:";
    say "\t", $_.pos for @$0;