for ($string) {
    $result .= $1 if /\G ([^\\*?]+) /xgcs;

    /\G \\(.) /xgcs && do { $result .= $1;   redo; };
    /\G \*    /xgcs && do { $result .= '?';  redo; };
    /\G \?    /xgcs && do { $result .= '#';  redo; };
}