新手调试遇难题，请求指导。急！

新手调试遇难题，请求指导。急！
下面是我编的一个小程序，在调试时出了点问题：
unrecognized character \xc4 at C:\doucume~1\ADMINI~1\LOCALS~1\TEMP\DIR6C.TMP\bei_danci.pl line 57.
#!/usr/bin/perl

use strict;

print(
"ÄãºÃ£¬ÕâÊÇÒ»¸ö±³ËÐÈí¼þ¡£\n",
"ʹÓÃʱÐëÏȵ¼Èëµ¥´ÊÔÙ±³ËС£\n",
"ÏÖÔÚÇëÑ¡Ôñ£º\n",
"1---------µ¼Èë\n",
"2---------±³ËÐ\n"
);
chomp(my $choice_1 = <STDIN>);
print "Çë¸øÄãµÄµ¥´Ê¼Ç¼ÎļþÆðÃû¡£\n";
chomp(my $my_dbm = <STDIN>);
if ($choice_1 < 1 || $choice_1 > 2){
print "Çë×Ðϸ¿´ËµÃ÷¡£\n";
}elsif($choice_1 = 1){
dbmopen(my %words,"$my_dbm",0644)
or die "ÎÞ?¨´ò¿ª»ò´´½¨Îļþ£º$!";
print "ÇëÊäÈëµ¥´Ê¡£\n";
chomp(my $word = <STDIN>);
print "ÇëÊäÈëÒâ˼¡£\n";
chomp(my $meanning = <STDIN>);
if ($words{$word} != ""){
print ("$word ÒѾ­ÓÐÒ»¸öÒâ˼ÊÇ£º$words{$word},\n",
"ÏÖÔÚÇëÑ¡Ôñ£º\n",
"1---------Ìí¼Ó\n",
"2---------ÐÞ¸Ä\n"
);
chomp(my $choice_2 = <STDIN>);
if ($choice_2 < 1 || $choice_2 > 2){
print "Çë×Ðϸ¿´ËµÃ÷¡£\n";
}elsif($choice_2 = 1){
$words{$word} .= $meanning;
}else{
$words{$word} = $meanning;
}
[color=red] print ("ÄãÕæ´ÏÃ÷£¬$wordµÄÒâ˼¾ÍÊÇ$meanning¡£\n",[/color]
"ÇëÑ¡Ôñ£º\n",
"1---------¼ÌÐø\n",
"2---------Í˳ö\n"
);
chomp(my $choice_3 = <STDIN>);
if ($choice_2 < 1 || $choice_2 > 2){
print "Çë×Ðϸ¿´ËµÃ÷¡£\n";
}elsif($choice_3 = 1){
next;
}else{
last;
}
}else{
dbmopen(my %words,"$my_dbm",0644)
or die "ÎÞ?¨´ò¿ª»ò´´½¨Îļþ£º$^E";
if (my ($word , $meanning) = each(%words)){
print "ÇëÎÊ $word µÄÒâ˼ÊÇʲô?\n;
if ($meanning eq chomp(<STDIN>)){
print "ÄãÕæ´ÏÃ÷$wordµÄÒâ˼¾ÍÊÇ$meanning.\n", "ÇëÑ¡Ôñ:\n",
"1.¼ÌÐø\n",
"2.Í˳ö\n";

}else{
print ("ºÜÒź¶£¬Äã´ð´íÁË¡£\n",
"$wordµÄÒâ˼ÊÇ--$meanning.\n"
);
chomp(my $choice_3 = <STDIN>);
if ($choice_2 < 1 || $choice_2 > 2){
print "Çë×Ðϸ¿´ËµÃ÷¡£\n";
}elsif($choice_3 = 1){
next;
}else{
last;
}
}else{
print "ÒѾ­Ã»Óе¥´ÊÁË£¬ÇëÌí¼Ó¡£\n";
last;
}
57行我已经用红色标出，
可那一行没有\xc4代表的“-”啊？

   

寒。。光 if elsif else 嵌套我眼睛都花了。 建议子程序处理之。
错误也许只是中文空格什么的。