my $text = "line 1\0line 2\0line 3";
IO::Handle->format_line_break_characters("\0");
format STDOUT =
Text: ^*
      $text
~~    ^*
      $text
.
write;

##</code><code>##

Text: line 1line 2line 3

##</code><code>##

my $text = "line 1\nline 2\nline 3";
IO::Handle->format_line_break_characters("\0");
format STDOUT =
Text: ^*
      $text
~~    ^*
      $text
.
write;

##</code><code>##

Text: line 1
      line 2
      line 3

##</code><code>##

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

##</code><code>##

Text: line 1
      line 2
      line 3