#!/usr/bin/perl -i
my $old=qq(http://www.w3.org/2002/xforms/cr);
my $new=qq(http://www.w3.org/2002/xforms);
while ( <>) {
  s/$old/$new/go;
print;
}