use strict;
use warnings;
use Quantum::Superpositions;

{
    my $superstring = any( 'A'..'Z', 'a'..'z' );
    sub has_alpha {
        return $superstring eq any( 
            map chr, unpack 'C*', shift 
        );
    }
}

while ( <DATA> ) {
    chomp;
    print "$_\t=>\thas alphas.\n" if has_alpha($_);
}


__DATA__
12345
abcdef12345
$@!^%^&(*aB&#@
1A2B3C4D
!@#$*&()