$foundit = 0;
while (<$FH>) {
    $foundit = 1 if /^pattern/;
}

if ($foundit) {
    do some processing
}