Select Code to Download

sub change_text
 {
...
$s =~ tr/\0 /.-/;
print $s;
 }

${^WIDE_SYSTEM_CALLS}= 1;
use strict;
...
$s =~ tr/\0 /.-/;
print $s;
 }