Replicates the "perl -pi -e" command, without a separate process. Edits a file "inplace"
inplaceEdit ($filename, $code);
where $filename is the file to edit, and $code is the action to perform on each line before it is written e.g.
$code = sub { s/\s+/ /g }
or
sub dostuff { s/\s+/ /g } inplaceEdit ($filename, \&dostuff);
or
inplaceEdit ($filename, sub { s/\s+/ /g });