#!/usr/bin/perl
#You could use IO::Scalar which seems to  
#be part of IO::Stringy. 

use IO::Scalar;
$data = "My message:\n";

### Open a handle on a string, and append to it: 
$SH = new IO::Scalar \$data;
print $SH "Hello";
print $SH ", world!\nBye now!\n";
print "The string is now: ", $data, "\n";

### Open a handle on a string, read it line-by-line, then close it: 
$SH = new IO::Scalar \$data;
while (<$SH>) {
print "Got line: $_";
}
close $SH;