print {$final_fh} /$pattern/, "\n";