while (<>) {
    $array[$index++] = $_ if /$searchstring/;
}