$buf = "hello\nworld";
$buf =~ s/[^ -~]/./g;
$rhs .= $buf;