# writer
$data =~ s/\\/\\\\/g;
$data =~ s/\n/\\/g;
print PIPE $data,"\n";

# reader
$/ = "\n";
$data = <PIPE>;
chomp $data;
$data =~ s/\\n/\n/g;
$data =~ s/\\\\/\\/g;