Tony Yip says to YSITD
perl -e "while(my $line = <STDIN>) print($line ~ s/\s+/ /g)"