Select Code to Download

$final_gset[$i]= $tmps;

while (<IN>) {
    if ($hit=/POLYMORPH/ ... /^\s*$/) {
...
    }
    # This will be reached for anything else
}

print TEXT join("\n",@final_gset),"\n";