#!/usr/bin/perl
#<"SplitFile.pl"> Split File
undef $/;
$OPTION=$ARGV[0];
$SEARCH=$ARGV[1];
$FLNAME=$ARGV[2];
$pid = open(XFILE, $FLNAME) or die "Couldn't fork: $!\n";
  @finfo=split(/(\n\n)/, <XFILE>);
$tRecsInfo = @finfo;
@MATCHING = ();
if ( $OPTION eq "with" )
{
    @MATCHING = grep /$SEARCH/i, @finfo;
}
else
{
    @MATCHING = grep !/$SEARCH/i, @finfo;
}
$tMATCHING = @MATCHING;
print "@MATCHING";
#print "\nI read ",  scalar(@finfo), " RECORDS\n";
print "\nI read ",  $tRecsInfo, " RECORDS\n";
print "I Selected ",  $tMATCHING, " RECORDS\n";