my $str = "yo ho ho\n";
open my($fh), '+<', \$str;
print <$fh>;
print $fh "and a bottle\n";
print $str;
__END__
yo ho ho
yo ho ho
and a bottle