$ifn=$ARGV[0];$ofn=$ARGV[1];
open IFN, "$ifn" or die "Can't open $ifn:$!\n";
open OFN, ">$ofn" or die "Can't open $ofn:$!\n";

while(<IFN>){
$_ =~ s/[^\x20-\x7e\x0d\x0a\x0c\x09]/ /g;
print OFN;
};