Sure, you can use IO::Scalar:

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