Help for this page

Select Code to Download

Select or download this

local @ARGV = $path;
local $^I = "";
...
   s/foo/bar/g;
   print;
}