See IO::String.

use warnings;
use strict;
use IO::String;

my $io = IO::String->new ("This is some text\nto be processed as\na fi
+le");

print while <$io>;
[download]

Prints:

This is some text
to be processed as
a file
[download]