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