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