>perl -wMstrict -e
"my $filelike = qq{Line 1\nLine 2\nLine etc.\n};
 open my $fh, '<', \$filelike or die $!;
 while (<$fh>) {
   print
   }
 close $fh or die $!;
"
Line 1
Line 2
Line etc.