Select Code to Download

my $s = <<__end_of_string__;
start
...
my ($match) = $s =~ /start(.*?)end/ims;

print $match;

my ($match) = $s =~ /start\n(.*?)end/ims;