This one should work:

open (TEST, "test.txt") or die $!;

@array = <TEST>;

for (grep /$seachstring/, @array) {
        print;
}
[download]