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