#!perl -pal $_=@F[1]