Help for this page
LINE: while (defined($_ = <ARGV>)) { undef; ... continue { die "-p destination: $!\n" unless print $_; }
perl -i -pe's/foo/bar/g; s/y/yah/g;' filename