Perl 把变量当作文件来处理

在 Tcl 里,可以通过 refchan 把字符串当作文件来处理。在 Perl 里面怎么实现类似的功能呢?

Perl Open String as File

$text = "123\n456\n789";

open(STRING, ">", \$text);
while(<STRING>){
   print $_;
}
close STRING;