格式化多行don'；在Perl中不能用@*显示

我想正确显示此格式。我现在把所有东西都放在一条线上。我想有多行打印的结果。希望有人能帮我解决这个问题

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>");

my$name=“Fred Flinstone”；
我的$address=“洞穴石路345”；
my$city=“鹅卵石”；
我的$state=“Rock”；
my$zip=“13131”；
打印（“”）；
$~=“多行”；
写
格式化多行=
===============================
|@只需添加
\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");

my$name=“Fred Flinstone”；
我的$address=“洞穴石路345”；
my$city=“鹅卵石”；
我的$state=“Rock”；
my$zip=“13131”；
打印（“\n”）；
$~=“多行”；
写
格式化多行=
===============================
|@谢谢你的回复，我发现我在这个脚本上面的html代码使代码在一行上返回。XD如果我的回答对您有所帮助，如果您愿意接受，我将不胜感激：）是这个脚本上面的代码把它搞砸了。您知道如何防止早期html代码弄乱这部分代码吗？我对perl一无所知，我试图理解为什么我的代码没有正确显示，我不理解你的意思。这不是混乱，他们在不同的线路上。或者还有其他HTML代码？（老实说，我几乎不懂Perl，我用我的Python背景：））啊，好的。我在这个脚本上面做了一些其他练习。在没有前面的练习的情况下，将代码放入一个新文件后，代码工作得非常好，除了您在回答中提到的内容之外。；-）我刚开始学习perl，所以对我来说一切都是新的
<span class='titel'>
===============================
| Fred Flinstone              |
| Cave Stone Road 345         |
| Cobblestone      , Ro 13131 |
===============================

</span>
<br><br>