Select Code to Download

# used by munge function to safely interpolate
# $1, $2 etc into the replacement string
...
    $_[0] =~ s/\$(\d)/$P[$1]/g;
    $_[0];
}

# used by munge function to safely interpolate
# $1, $2, etc. into the replacement string
...
  $_[0] =~ s/\$(\d+)/$P[$1]/g;
  $_[0];
}

#!/usr/bin/perl

...
}

exit;