Help for this page

Select Code to Download

Select or download this

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

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