#!/usr/bin/perl

use strict;

my $a = qq{<IL.Check/>};
my $b = qq{<&#x221a;>};

print "Old word: $a\n";

$a =~ s/$a/$b/;
print "New word: $a\n";