Select Code to Download

#!/usr/bin/perl -w
use strict;
...
adasdas start as asdas dasdasdad asdasddas end qweqwe

asdasd start asdsadsdasddasds sdasdas asdasdasdasd asdasdsa asdasd asd
+asdasd end

s/^.*?start/start/;
s/end.*/end/;