#!perl -pl
$_^=y// /cr