$_ = do {my $t  = "";
            $t .= defined $1 ? do {(my $t = $1) =~ y/\\//d; $t} : $2
                  while /((?:[^\\]+|\\(?!\*))+)|(\\\*(?:[^*]+|\*(?!\\))+\*\\)/g;
            $t
};