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