my @line = split (); # if ($line[1] =~ /\wP\w/i); print "$line[1]";