#!perl -pl
$_=eval,++$%while s/\B/*/g;$_=$%