Perl - Game Esfinge

[Germ]

E ai galera, Esses tempos atrás comecei a mexer no Perl, e criei um simples script
que lança perguntas ao usuário e aguarda uma resposta. E uma coisa bem simples e divertido.

$ponto = 0; #pontos de acerto

print "  __________________________\n";
print "||Game Esfinge              ||\n";sleep 2; # 
print "||Decifra-me ou devoro-te!  ||\n";sleep 2;
print "||                          ||\n";
print "||Bem Vindo ao meu Mundo    ||\n";sleep 2;
print "||__________________________||\n"; sleep 2;

print "
sou um personagem ficticio e o protagonista principal de
uma serie de videogames, mascote oficial da nintendo e
vivo no reino dos cogumelos.\n";sleep 1;
chomp ($a=<STDIN>);# onde vai se digitado a sua resposta 

#checa se a resposta esta certa caso esteja ele add um ponto a variavel $ponto
if ($a eq "super mario")
{
   $ponto++;
}




print "___________________________\n";sleep 1;
print "super mario\n"; sleep 2;
print "____________________________\n";sleep 1;

print "O Pluto e o Pateta sao cachorros, certo? Por que o Pateta fala e o Pluto nao?\n"; sleep 1;
chomp ($b=<STDIN>);

if ($b eq "porque o pateta pertence a especie canis erectus")
{
   $ponto++;
}

print "_______________\n";sleep 1;
print "porque o pateta pertence a especie canis erectus\n";sleep 2;
print "_______________\n";sleep 1;


print " O que e, o que e? Do tamanho de uma bolota e enche a casa ate a porta? \n";
chomp ($c=<STDIN>);

if ($c eq "a luz")
{
   $ponto++;
}

print "_______________\n";sleep 1;
print "a luz\n";sleep 2;
print "_______________\n";sleep 1;

print " O que e, o que e? Eramos dois irmaos unidos, os dois de uma cor. Nunca fiquei sem missa, mas meu irmao ja ficou. Para festas e banquetes a mim convidarao. Para festas de cozinha, convidarao meu irmao.\n";
chomp ($d=<STDIN>);

if ($d eq "vinho e vinagre")
{
   $ponto++;
}

print "_________________\n";sleep 1;
print "Vinho e vinagre.\n";sleep 2;
print "_________________\n";sleep 1;

#resultado

print "\n\n";
print "Pontos = " . $ponto;