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