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