Select Code to Download

  sub { my @cels = split( /,/, $_[0], 8 );
        $cels[7] = '('. $cels[7] .')';
        print '<tr><td>'. join('</td><td>',@cels) ."</td></tr>\n" }

my $match = ( $name_pattern =~ /^(\w+)$/ ) ? $1 : "\\S":

my @data = grep /$match/i, <FILE>;