Select Code to Download

#!/usr/bin/perl -wT

user strict;

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

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

if (/$searchstring/) { &doSomething }

&doSomething if /$searchstring/;