hi.pl ~ 6454
low.pl ~ 757
cow.pl ~ 43
low.pl ~ 757

##</code><code>##

my $file = low.pl;
my $lineCount = 757;

##</code><code>##

open(INFILE, "linecount.txt")
my @hold;
while (<INFILE>)
{
push(@hold, $1)&& last if (m/$thefileIamLookingfor/);
}
$value = join(' ', @hold);
my( $file, $linecount) = split(/~/, $value);