You could hit it from the back {g}:

sub hasalpha { 
    local($_) = @_;
    isalpha chop and return 1 while length;
    return;
}
[download]