Select Code to Download

$ perl -MDP -wE'my%x;$x{$_}++ for "iowq john stepy andy anne alic bert
+ stepy anne bert andy step alic andy" =~ m/(\w+)/g;DDumper\%x'
{   alic             => 2,
...
    step             => 1,
    stepy            => 2
    }

$ perl -MDP -wE'my%x;()="iowq john stepy andy anne alic bert stepy ann
+e bert andy step alic andy" =~ m/(\w+)(?{$x{$^N}++})/g;DDumper\%x'