#!/usr/bin/perl -- 
use strict;
use warnings;
my $infile = 'C:\Scripts\Working2\Users_0.xml';
my $outfile = 'C:\Scripts\Working2\Users2.xml';
my $find = VerifyHex( '\xe9' );
my $replace = VerifyHex( '\x65' );
open(IF, "<$infile") or die "Could not open $infile $!";
open(OF, ">$outfile") or die "Could not open $outfile $!";
binmode IF;
binmode OF;
while( my $str = <IF> ){
      $str =~ s{$find}{$replace}g;
      print OF $str;
}
close IF;
close OF;
sub VerifyHex {
    my( $str ) = @_;
    if( $str =~ m/(\\[a-zA-Z0-9][a-zA-Z0-9])/ ){
        return "$1";
    }
    die "evil input $str";
}

##</code><code>##

<?xml version="1.0" encoding="UTF-8" ?>
<foundation Version="1.0.0">
	<contributor>
		<userId>C12760</userId>
		<name>Shilpaé Durgale</name>
	</contributor>
</foundation>