c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{ab-cd\tef\n\x80\x81\xaa\xab\xacfoo\rbar};
 print qq{[[$s]] \n};
 ;;
 $s =~ s/\r//g;
 print qq{[[$s]] \n};
 ;;
 $s =~ s/[^[:ascii:]]//g;
 print qq{[[$s]] \n};
"
[[ab-cd ef
bar]] oo

[[ab-cd ef
Çü¬½¼foobar]]

[[ab-cd ef
foobar]]