Select Code to Download

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

print while <$io>;

This is some text
to be processed as
a file