#! perl 

while(1){
	system "cls";
	print "\n\n\tdictionary by babel\n\n";

	print "\ngive me a pettern: ";

	chomp($pettern = <STDIN>);
	last if $pettern eq 'q';
	
	if ( $pettern =~ /en /){
		open DIZ, "<inglese_italiano.txt";
	} elsif( $pettern =~ /it /){
		open DIZ, "<italiano_inglese.txt";
	} else {
		open DIZ, "<italiano_inglese.txt";
	}
	$pettern=defined($')?$':$pettern;
	
	print "\n\nlooking for: \"$pettern\"...\n\n";
	
	$counter=0;
	foreach(<DIZ>){
		if ( $_ =~ /"(.*$pettern.*)"(.*)"/ ){
			print "\n\t$1: $2";
			$counter++;
		}
	}
	
	print "\n\n\n$counter results for this search";
	$pettern=undef;
	<STDIN>;
}