while (<>)
{
    print $_ if  ($_ =~ /^[^\00-\x20\x7f-\xff]+\r?$/);
}