#!usr/bin/env perl

use warnings;
use strict;

open my $test_fh, '<', @ARGV or die "Can not open file $!\n";
  while (<$test_fh>) {
    my @line = split ();
  	# if ($line[1] =~ /P/i);
          print "$line[1]";
}

close ($test_fh);