Select Code to Download

#!/usr/bin/perl -w

...
    $foo =~ s/(\$[\w\[\]{}"']+)/qq($1)/gee;
    print $foo, "\n";
}