Select Code to Download

# vulgar AND broken
my @lines;
...
+one 
+line!
Oops

$lines[@lines - s/^\+//] .= substr $_,0,-1 while <DATA>;

$lines[ @lines + 1 - s -^\053|\012--g ] .= $_  while <DATA>;