#!/usr/bin/perl -wT

user strict;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

if (/$searchstring/) { &doSomething }

&doSomething if /$searchstring/;