$ perl -e'
   my $String = "xxxchr12yyy";
   $String =~ s/chr(12)//g;
   CORE::say $String;
'
xxxyyy