#!/usr/bin/perl -w
use strict;
# This is file1

my $error = 10;
print "$error.\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
# This is file2

print "Before: ";
# Run the first script
do "file1";

my $new_error_value = 20;

@ARGV = "file1";
{
    local $^I = ""; # Enable in-place editing
    while (<>){
        s/(\$error\s*=\s*)\d+/$1$new_error_value/;
        print;
    }
}

print "After: ";
# Run the first script
do "file1";

##</code><code>##

#!/usr/bin/perl -w
use strict;
# This is file2

print "Before: ";
# Run the first script
do "file1";

system "/usr/bin/perl", qw{-i -wpe s/(\$error\s*=\s*)\d+/${1}20/ file1};

print "After: ";
# Run the first script
do "file1";