while (<>) {
    push (@array, $_) if /$searchstring/;
}