Select Code to Download

perl -i.backup -pe's/foo/bar/g' filename

{
    local @ARGV = ('filename');
...
        print;
    }
}