cgn_perl -lane 'print $F[1] if $F[0] =~ /^X/'