#!perl -pal $_="@F"