perl -e "$a='b}b';print 'Mached!' if $a=~'}'"