#!perl -plaF $\.=$"x@F