http://www.perlmonks.org?node_id=303378


in reply to Re: Re: Regexp for alphabetical order match within the string
in thread Regexp for alphabetical order match within the string

Elegent solution, tho the ords are needless. 
sub is_alphabetical {
    my @c = split //, shift;
    $c[$_] ge $c[$_-1] or return 0 for 1..$#c;
    return 1;
}

[download]

tlhf
(Everyone forgets about ge and le ^_^)

In Section Seekers of Perl Wisdom