>>645
open my $fh,'<',\$data; # 詳細は PerlIO::scalar 参照
while(<$fh>) { ... }
みたいなやり方はあるけどね。
でも、自分が素直だと思う方法を迷わずに使うのは充分にperlらしいやり方だと思う。