[34B] 組み込み変数 $/

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

$/ == 入力区切り文字の初期値は改行