$ perl -MO=Deparse -i.$$ -pe 's/search/replace/g' *.html
BEGIN { $^I = ".2412"; }
LINE: while (defined($_ = <ARGV>)) {
    s/search/replace/g;
}
continue {
    print $_;
}
-e syntax OK