Select Code to Download

use strict;
use warnings;
...

__DATA__
something start: some text stop: other text here start: again somethin
+g stop: may be some text here start: and finally stop: and maybe some
+thing here

pos = rindex($_, $start);
m/\Q$start\E(.*?)\Q$end\E/gs;
print $1;