sub isachar
{
    return pop =~ /^[\x00-\x7F]/;
}

# Or alternatively
sub isalnum
{
    return pop =~ /^\w/;
}

# As in:
$is = isachar('a');