open DICTE, "dict.txt";
if (length($input)>0){
print "<p><b>".$input."</b></p>";
while (<DICTE>){
        chomp;
        ($english, $lang, $irreg, $clss) = split(/;/,$_); #gets the grammatical informations stored in one line of the dictionary.
        if ($input eq $lang){ print "<p>$english - $lang, $clss</p>";} #if the input equals the word in the dictionary, print it along with its translation.
}