#!/usr/bin/perl -w
 open( FILE, "<", "test.txt") or die "cannot open > test.txt: $!";
while (<FILE>)
{
@array = <FILE>;
@a = grep (/^lb348,/, @array);
close FILE;
print $a;
}