sub nonascii
{
    local $_ = shift;
    /[^\0-\x7f]/;   # or /[^[:ascii:]]/
}

for my $test ( split( " ", "foo bar b\xe1 baz" )) {
    next if ( nonascii( $test ));
    print "$test\n";
}