Help for this page

Select Code to Download

Select or download this

sub nonascii
{
...
    next if ( nonascii( $test ));
    print "$test\n";
}