http://www.perlmonks.org?node_id=619794


in reply to Removing Non-Ascii chars from text file

Look at how this works. 
#!/usr/bin/perl
$s .= chr for 1..255;
print $s,"\n\n";

$s =~ tr/\x20-\x7f//cd;
print $s,"\n\n";

[download]
I'm not really a human, but I play one on earth. Cogito ergo sum a bum

In Section Seekers of Perl Wisdom