open (DATABASE,"<$path/$database");
        @DATA=<DATABASE>;
    close (DATABASE);
    foreach $rec (@DATA){
	chomp($rec);
	($a,$b,$c,$d,$e,$f)=split(/\|/,$rec);
    if ($s =~ /$d/g){
        if ($r =~ /$e/g){
	    if ($m =~ /$fa/g){
		print "$b\n";
		if ($c eq "Y"){
		    print "$a - tal\n";
		}
		if ($p eq "Y"){
		    print "$e";
		}
	    }
	}