Select Code to Download

while (<DATA>) {
    . . . create $name, $rex and $FH . . .
    push @rexlist, [ $regex, $name, $FH ];
}

while (my $line = <$IFH>) {
    . . .
...
    }
    . . .
}