[36B] どうせ数字なんだし

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

\d は . で良い