Select Code to Download

$_ = join ('', <STDIN>);
s/\blocal(\s*\(?([\$\@\%][a-zA-Z0-9_]*\s*,?\s*)+\)?\s*[;=])/my$1/g;
print;