i'm not shure i understand the question. are you asking for something like this?

# one method
my $foo = "sometext\nmore\n";
print $foo;

# another method
$foo = <<END;
sometext
more
END
print $foo;
[download]