Help for this page
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"; }