Select Code to Download

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

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

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

while ( <<"EOT" =~ m/(.*is.*)/g )
This
...
{
    print $1,"\n";
}