$contents =~ s/\®/\®/g;
   $contents =~ s/\®/\®/g;