Help for this page

Select Code to Download

Select or download this

#! perl -snli.org
use strict;
...
    /<!- $B -->/ .. (/<!- $E -->/ && ($s = 1))
    ? ($s and print($R), $s = 0 )
    : print

Select or download this

C:\test>del junk.in && ren junk.in.org junk.in

...

         $ perl -pi '.orig' -e 's/bar/baz/' fileA    # backup to 'file
+A.orig'
         $ perl -pi '*.orig' -e 's/bar/baz/' fileA   # backup to 'file
+A.orig'