use Perl6::Rules;
    use Perl6::Say;

    $seq =~ m:overlap/ GUAUG /;

    say "Found ", scalar(@$0), " at:";
    say "\t", $_->pos for @$0;