s/\^(\d*.)/**$1/g,print eval,$/for<>