Select Code to Download

#!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] =~ /\wP\w/i);
    print "$line[1]";

close ($test_fh);

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

...
operator
Perl
help