#!usr/bin/env perl

use warnings;
use strict;

##</code><code>##

open my $test_fh, '<', @ARGV or die "Can not open file $!\n";

##</code><code>##

while (<$test_fh>) {

##</code><code>##

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

##</code><code>##

close ($test_fh);

##</code><code>##

#!/net/perl/5.10.0/bin/perl

use strict;
use warnings;

die "Invalid number of arguments\nUsage: program <file_name>\n" if @ARGV != 1;

open my $fh, '<', $ARGV[0] or die "Can't open $ARGV[0]: $!\n";

while ( my $line = <$fh> ) {
    print "$_\n"         # print one word per line
      for grep {/p/i}    # select those with a p or P
      $line =~ /(\p{IsAlpha}+)/g;   # Words only have letters
                                    # and match all of them
}

close $fh;
__END__
CPAN
comprehensive
Perl
expression
pattern
pattern
operator
Perl
help