For double letters:

if ($word =~ /(.)\1/) ...
[download]

All letters in alphabetical order (not regex):

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

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1