#!c:/perl/bin/perl.exe -w
use strict;

my $next_value;
my @string1;
my $string1;

my @string2;
my $string2;

open (IN, "+<G203.xml");
open (OUT,">_G203.xml") || die ("Cannot open file");
@string1 = <IN>;
seek IN,0,0;

sleep (1);

foreach $string1(@string1){
$string1 =~ s/XXXGASPOINTIDXXX/656563/gi;
print OUT "$string1";

}

close IN;

sleep (3);

print "\n sleeping ....\n";

open (IN2, "+<_G203.xml");
open (OUT2,">2_G203.xml") || die ("Cannot open file");
@string2 = <IN2>;
seek IN2,0,0;

sleep (1);

foreach $string2(@string2){
$string2 =~ s/XXXMMREFXXX/62394732472856563/gi;
print "$string2";
print OUT2 "$string2"; 
}

close IN2;