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