use Modern::Perl;
use File::Slurp;

my $text = read_file( '_G203.xml' );
$text =~ s/XXXGASPOINTIDXXX/656563/gi;
$text =~ s/XXXMMREFXXX/62394732472856563/gi;
write_file( '_G203.xml', $text );