if ($string=~m@(\w+/){2,}@) { print "Dup is $1\n"; }