[32B] 数値に文字列演算

 print"*"x$_.$/for(1x<>)**2=~/./g

'1' じゃなくて 1 で OK