#!perl -ln
print chop|y// /crx/ /,/\S/g