my $file = $ARGV[0];
my $repl = $ARGV[1];

open INFO, "<", $file or die $!;

while (<INFO>)
{
    s/(Absolute_Error_Tolerance=&Quot;)1e-15(&Quot)/$1$repl$2/;
    print;
}

close INFO;