split /\Q#\E/;
$_ = $_[0];
if(/\A\s*\Z/) {
  next;
}
$string = $_;
for($i = 1; $i <= $#_; $i++) {
  $_ = $_[$i - 1];
  m/(.)((\\){2})*\Z/;
  if("$1" eq "\\") {
    $string .= "\#" . $_[$i];
  } else {
   last;
  }
}