use IO::Scalar;
my $myString = "stuff here\nmore stuff";
my $fh = IO::Scalar->new(\$myString);
while <$fh> {
 # yer code here
}