while ($_ = <STDIN>)
  {
    chomp;
    s/^((([^\#\\])|(\\.))*)\#.*$/$1/;
    print "$_\n";
  }