#!perl -pl
s/\*|^/;\$_$&=/g;eval