#!perl -p $\=???$_:<>;s; ;