Perl 5.8 can do this with open():

open my $fh, "<", \$string or die "can't read from \$string: $!";
while (<$fh>) {
  ...
}
[download]

You're opening a reference to a scalar to read from.