s/$/*/,s/\*{10}/#/,print for($/)x99