Sorry, newbieitis. Now I'm logged in, and have a more readable version of the code from my question:

my $stringfile = FileHandle::newFromString( "One fish\nTwo fish\nThree
+ fish\nFour fish" );
while( <$stringfile> ) {
    dosomething( $_ );
}
[download]

Cheers, - jsproat

Originally posted as a Categorized Answer.