How to remove words with repeated characters from a string with a single regex?

Question

I need to remove any words containing repeated characters from a string in Perl. I can use the /e flag:

$string =~ s/(\w+)/keys %{{map {$_,1} split '', $1}} == length $1 ? $1 : ""/ge;

Can this be done with a single regex, without /e?

Answer 1

$string =~ s/\b\w*(\w)\w*\1\w*\b//g;

Looks weird, but works anyway.