Select Code to Download

undef $/;
$current = <DATA>;
...
stuff i do want
<!---END CURCON-->
more stuff i don't want

my ($match) = $current =~ m/$start(.*)$end/s; # note the parens around
+ $match

$match =~ tr/\n//d;
# or
$match =~ s/\n//g;