my $subst = '';
s/\000\013/$subst/g;