BEGIN {
        my $get_regexes = sub {
             ...
           return map {...}
        };
        ...
    }

##</code><code>##

    local *FH; 
    open FH, ...