Select Code to Download

~/perl/monks$ cat foo.txt
fish $1
~/perl/monks$

#!/usr/bin/perl 

...
                  $str =~ s/\$(\d+)/$vars[$1-1]/g;
                  $str }