#!perl -lp
s/[^*]+/$&/gee;$_=eval