sub isalpha {
    no warnings "numeric";
    my($p) = @_;
    0==++$p;
}
sub hasalpha {
    my($s) = @_;
    isalpha(substr($s, 0, 1, "")) and return 1 while
        length($s);
    return;
};
@t = ("f/2", "-2/", "*+)", "165", "foop", "  A=");
$\=$/; $,=" ";
print grep hasalpha($_), @t;
print grep lc ne uc, @t;