in reply to Challenge - Creative Way To Detect Alpha Characters

I'm surprised noone posted this yet.

sub has_alpha {
    local $_ = shift;
    my %c;
    @c{ unpack "(A1)*", $_ } = ( 1 ) x length;
    $_ && return 1 for @c{ 'A'..'Z', 'a'..'z' };
    return;
}

[download]

Makeshifts last the longest.

In Section Seekers of Perl Wisdom