{
    local $^I = ".backup";
    @ARGV = @files; 

    while (<>) {
        s/$target/$replacement/g;
        print;
    }
}