my $text = <<"EOT"
This
is
my
text.
EOT
;

##</code><code>##

my $text = <<"EOT";
This
is
my
text.
EOT

##</code><code>##

my $text = "This\nis\nmy\ntext.\n";

##</code><code>##

while ( <<"EOT" =~ m/(.*is.*)/g )
This
is
my
text,
isn't it?
EOT
{
	print $1,"\n";
}