把一文件内容写到一个变量里?该如何解决

把一文件内容写到一个变量里?
如我得文件ww.txt内容如下
hello everyday
hello everyday
#32
#55
nihao nihao zz
cc eee qqq
#78
tttttttlala
#90
#87
#666

得到$data变量如下

my $data = qq(hello everyday
hello everyday
#32
#55
nihao nihao zz
cc eee qqq
#78
tttttttlala
#90
#87
#666);

求perl代码 在线等

[解决办法]

Perl code

my $file = 'ww.txt';my $HFILE;open HFILE, "<$file" or die "cannot open $file: $!\n";my $data = join '', <HFILE>;