Tony Yip
says to
YSITD
#!/usr/bin/env perl while(my $line = <STDIN>) { print(s/\s+/ /g) }