Help for this page

Select Code to Download


  1. or download this
    my $s = q[<IL.Check/>];
my $r = q[<&#x221a;>];
...
print "Old word: $s\n";
$s =~ s/$s/$r/;
print "New word: $s\n";
  2. or download this
    my $s = q[<IL.Check/>];
my $r = q[<&#x221a;>];
...
print "Old word: $s\n";
$s =~ s/\Q$s\E/$r/;
print "New word: $s\n";