#!perl -p0
s#\?|(.)#$_.=$1;y/([{/)]}/?$1:chop#eg