Select Code to Download

    local $/;  # Added in an update
    while( <IN> ) { while( /$regex/gm ) { ... } }

     
    local $/;  # Added in an update
    my $file = <IN>;
    while( $file=~/$regex/gm ) { ... }