Формат многострочных не отображается с @ * в Perl

Question

Я хотел бы показать этот формат правильно.Теперь я получаю все на одной линии.Я хотел бы, чтобы результат был напечатан в несколько строк.Надеюсь, что кто-нибудь может помочь мне с этим.

my $name = "Fred Flinstone";
my $address = "Cave Stone Road 345";
my $city = "Cobblestone";
my $state = "Rock";
my $zip = "13131";

print ("<span class='titel'>");

$~ = "MULTILINE";
write;

format MULTILINE =
===============================
| @<<<<<<<<<<<<<<<<<<<<<<<<<< |
$name
| @<<<<<<<<<<<<<<<<<<<<<<<<<< |
$address
| @<<<<<<<<<<<<<<<<, @< @<<<< |
$city,           $state, $zip
===============================
@*
.


print ("</span>");
print ("<br><br>");

Answer 1

Просто добавьте \n символов, что означает «Конец строки»:

my $name = "Fred Flinstone";
my $address = "Cave Stone Road 345";
my $city = "Cobblestone";
my $state = "Rock";
my $zip = "13131";

print ("<span class='titel'>\n");

$~ = "MULTILINE";
write;

format MULTILINE =
===============================
| @<<<<<<<<<<<<<<<<<<<<<<<<<< |
$name
| @<<<<<<<<<<<<<<<<<<<<<<<<<< |
$address
| @<<<<<<<<<<<<<<<<, @< @<<<< |
$city,           $state, $zip
===============================
@*
.
print ("</span>\n");
print ("<br><br>\n");

Вернется:

<span class='titel'>
===============================
| Fred Flinstone              |
| Cave Stone Road 345         |
| Cobblestone      , Ro 13131 |
===============================

</span>
<br><br>