perl -lane ' print $F[1] if $F[1] =~ $ARGV[0]  '