输出这段文字到文件怎么做？

文字如下
里面包含了  "#" 还有好多字符我想知道怎么把这么段文字完整的保存在一个变量里？
或者直接输出他们？怎么做？

记得php里有个什么方法来着 一个语句然后里面无论什么都当作文本输出无论是特殊字符还是其他 无论多少行 perl里怎么实现..

#        $OpenBSD: dhcpd.conf,v 1.1 1998/08/19 04:25:45 form Exp $
#
# DHCP server options.
# See dhcpd.conf(5) and dhcpd( for more information.
#

# Network:                192.168.1.0/255.255.255.0
# Domain name:                my.domain
# Name servers:                192.168.1.3 and 192.168.1.5
# Default router:        192.168.1.1
# Addresses:                192.168.1.32 - 192.168.1.127
#
shared-network LOCAL-NET {
        option  domain-name "my.domain";
        option  domain-name-servers 192.168.1.3, 192.168.1.5;

        subnet 192.168.1.0 netmask 255.255.255.0 {
                option routers 192.168.1.1;

                range 192.168.1.32 192.168.1.127;
        }
}

use strict; use warnings; my $test=q|#        $OpenBSD: dhcpd.conf,v 1.1 1998/08/19 04:25:45 form Exp $ # # DHCP server options. # See dhcpd.conf(5) and dhcpd( for more information. # # Network:                192.168.1.0/255.255.255.0 # Domain name:                my.domain # Name servers:                192.168.1.3 and 192.168.1.5 # Default router:        192.168.1.1 # Addresses:                192.168.1.32 - 192.168.1.127 # shared-network LOCAL-NET {         option  domain-name "my.domain";         option  domain-name-servers 192.168.1.3, 192.168.1.5;         subnet 192.168.1.0 netmask 255.255.255.0 {                 option routers 192.168.1.1;                 range 192.168.1.32 192.168.1.127;         } }|; print "$test";

To 楼上: 若文字中出现分隔符'|'就会出问题, 毕竟'|'还是很常见的.

建议用here doc的方式, 比如:
my $str = <<THE_END
xxxxxx
xxxxxx
THE_END
;

嗯，多谢Lonki指点，刚才回贴的时候也想了一会儿用什么分隔符好，呵呵~

我刚测试了一下here doc，发现也有问题，会解释掉里面的“$!”，有什么好办法可以避免被解释了呢？

在“$”前加上“\”，如：\$ \@

饿... 我没解释清楚..

perl的here document有2种形式, 带引号与不带引号

不带引号的:
my $str =<<EOF
$var
EOF
;
相当于double quotes和qq//,  其中会做变量替换

带引号的:
my $str =<<'EOF'
$var
EOF
;
相当于single quote和q//, 不做变量替换

非常感谢……学习了