gistfile1.txt

    my $s = 'the quick brown fox jumped over the the lazy dog';

    my token word { \w+ [ \' \w+]? }
    my regex dup { <=&word> \W+ $<word> }
    if $s ~~ m/ <=&dup> / {
        say "Found '{$<dup><word>}' twice in a row";
    }