perl_quote bug fix