Help for this page
#!perl -i # or: ... s/foo/bar/; print; }
if (/foo/) { s/foo/bar/g; } s/foo/bar/g;