#!perl -pl
$_=join$",split