Help for this page
while (<>) { s/$searchPattern1/$repalcePattern1/g; ... s/$searchPattern3/$replacePattern3/g; print; }
while (<>) { if (s/$searchPattern1/$repalcePattern1/g) { ... print; }
s/\s*\z/\n/;