#!perl -077lp
$\=chop($s.=y/([{	-~/)]}/dr)