gistfile1.txt

    regex word { \w+ [ \' \w+]? }
    regex dup  { « <word> \W+ $<word> » }

    if $s ~~ m/ <dup> / {
        say "Found '{$<dup><word>}' twice in a row";
    }