Select Code to Download

my $text = "line 1\0line 2\0line 3";
IO::Handle->format_line_break_characters("\0");
...
      $text
.
write;

Text: line 1line 2line 3

my $text = "line 1\nline 2\nline 3";
IO::Handle->format_line_break_characters("\0");
...
      $text
.
write;

Text: line 1
      line 2
      line 3

my $text = "line 1\nline 2\nline 3";
####IO::Handle->format_line_break_characters("\0");
...
      $text
.
write;

Text: line 1
      line 2
      line 3