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

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