$ perl -MO=Deparse -0777 -lpe 's/2/4/gs'
BEGIN { $/ = undef; $\ = ""; }
...