#!usr/bin/perl -w

#-------------------memo-------------------------	
#	$ringo          　りんごの数
#	$kkk              /100の結果
#	$aaa              $kkk % 100 の結果
#	$bbb              $aaa % 10 の結果
#------------------------------------------------

	$ringo = n
	
#	if ( n >= 1000) {
#		print "err";
#	}


	$kkk = n / 100;　　　　　　　　# ☆の数
	$aaa = $kkk % 100;
	$bbb = $aaa / 10;              # ●の数
	$ccc = $aaa % 10;              # ○の数

	print ("☆" x $kkk\n);
	print ("●" x $aaa\n);
	print ("○" x $ccc\n);

exit;

初心者なので全然なっていないと思いますが宜しくお願いします。
いろいろ調べたのですがどうしてっもできません。（根本的な問題だとはおもいますが）
超低レベルの質問でスミマセン。

>	$ringo = n
最後は';'とつける。nとは文字or文字列なら''or""でくくる。整数、浮動小数点ならそのままで。
	
>	print ("☆" x $kkk\n);
>	print ("●" x $aaa\n);
>	print ("○" x $ccc\n);
まあ、とにかく""でくくってください。