while (my $line = <FILE>) {
        $line =~ s/$curUrl/$tarUrl/g;
    }
##</code><code>##

open my $INFILE, '<', 'some_file'
    or die "Couldn't open $fname: $!";

##</code><code>##

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

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

...
use English '-no_match_vars';
...
{
    local $INPLACE_EDIT = ".backup";
    @ARGV = @files; 

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

##</code><code>##

$^I = undef;  #default value, Turn off inplace editing mode.

$^I = "some_string";  #Turn on inplace editing mode, use "some_string"
                      #as the extension for the backup files.

$^I = "";           #Turn on inplace editing mode, delete backup files.