#!perl -pa s/.*/$F[1]/