#!perl -pl
s;\w+;(\$_$.$&//=$&);g;$_=eval