# Edit-in-place in multiple files - one file at the time

{
    local $^I = q{};
    local @ARGV = @files;
    while(defined(my $line = <>)){
        # do something with $line
    }
    continue {
        print $line;
    }
}