Select Code to Download

s{
  ( ^ \#[ ]START \n )
...
  my @m = @{^CAPTURE};
  $m[ 0 ] . ( $m[ 1 ] =~ s/^[ #]+//rmg ) . $m[ 2 ];
}xmesg;