Select Code to Download

s/([^(?:([^\\]|\A)\\(\\{2})*\#)]*)(.*)/$1/

split /\Q#\E/;
$_ = $_[0];
...
   last;
  }
}