Select Code to Download

$ perl -MO=Deparse -i.$$ -pe 's/search/replace/g' *.html
BEGIN { $^I = ".2412"; }
...
    print $_;
}
-e syntax OK

$ perl -MO=Deparse -i'.$$' -pe 's/search/replace/g' *.html
BEGIN { $^I = ".\$\$"; }
...