--- common.pm	2002/06/24 13:47:04	1.5
+++ common.pm	2002/06/24 15:36:40	1.6
@@ -40,9 +40,23 @@
 	my $out = "";
 	while (my $fld = shift @_) {
 		if ($fld =~ s/\s*[,;\.!?'"<>\[\]]*\s+/ /g) {
+			$fld =~ s/></ /g;
 			foreach my $w (split(/\s+/,$fld)) {
 				# FIX: this should be replaced by stemmer!
-				$out .= "W $w $nr\n";
+				# remove chars from beginning of word
+				$w =~ s/^['"<(\[]//g;
+				# remove chars from end of word
+				$w =~ s/[,;\.!?'">)\]]$//g;
+				# preglasi φΦδΔόά -> ”™„Žš
+				if ($w =~ m/[”™„Žš]/) {
+					$out .= "W $w $nr\n";
+					$w =~ s/[”™]/oe/g;
+					$w =~ s/[„Ž]/ae/g;
+					$w =~ s/[š]/ue/g;
+					$out .= "W $w $nr\n";
+				} else {
+					$out .= "W $w $nr\n";
+				}
 			}
 		} else {
 			$out .= "W $fld $nr\n";