Select Code to Download

$text =~ s/(\W+)/$1->()/eg; # replace any nonwhitespace characters wit
+h
the result of a function call

%subs = (
    bar => \&bar
...

$text =~ s/(\W+)/$subs{$1}->() if defined $subs{$1}/eg; # only call fr
+om a list of specific subroutines