s/(.).*=.*(. .)/sub $1\{return\$_[0]$2\}/||s/.*/print $&.' ';/,$c.=$_ for<>;$c=~y/mq/MQ/;eval$c