#!/usr/local/bin/perl -w
#
###################             FIELD PASS                       ##############
#                                                                             #
#                       Passes just the first field lines                     #
#                                                                             #
###############################################################################

use Getopt::Long;

my ($web);

GetOptions ("web:s" => \$web);

my $filename = $web . ".txt";

open FILE, ">>$filename" or die $!;

while (<>) {
    chomp;
    if (/^(MH|AU|DP|TA|STAT|QRY|CNT|KP)/) {
	    print FILE $_;
	    print FILE "\n";
	}
}

close FILE;
###############################################################################