if ($word =~ /(.)\1/) ...

##</code><code>##

if (lc($word) eq join "", sort split //, lc($word));