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