Select Code to Download

#!/usr/bin/perl

...

my $text = "and him him lad has him done and john has has";
print "$_\n" for uniq $text =~ /(\b\w+\b)(?=.*?\b\1\b)/g;

and
him
has