#!perl -pl
y/_&/2*/;$_=eval;y/324/1_/