#!/usr/bin/perl
#<"Grep.pl"> Grep Profile Info File
undef $/;
$INFOFILE="/admin/users/diebelr/llProfile.out";
open (IFILE, "$INFOFILE") || die ("Cannot open $INFOFILE\n");
@finfo=split(/\n+(?=\n)/, <IFILE>);
#@finfo=split(/\n{2,}/, <IFILE>);
$tRecsInfo = @finfo;
print "$tRecsInfo";
print "I read ",  scalar(@finfo), " RECORDS\n";
@MATCHING = ();
@MATCHING = grep(/\b@ARGV[0]\b/, @finfo);
$MATCHED = @MATCHING;
print "@MATCHING";
print "\n$MATCHED Entries Matched\n";
#if ($str !~ /^\s*$/){print "yes";print OUT $str;}