package Filter::LocalizeGlobals;

use Filter::Simple;

# Add things to be localized here.
my $locals = 'local (' . join ',', qw(
    $_ $\ $/
);

FILTER_ONLY
    code => sub {
        s/(\bsub\b\s*\w+{)/$1 $locals /g;
    };

1;