#!perl -pl
s/\^(...)?/**$1/g;$_=eval