#!/usr/bin/perl -w use warnings; use strict; binmode(STDIN,":bytes"); binmode(STDOUT,":bytes"); while(<>){ chomp; s/\302\240//g; s/\s+/ /g; print $_."\n"; }