--- sap.pl	2000/12/11 10:18:14	1.1
+++ sap.pl	2002/01/25 14:47:43	1.2
@@ -38,7 +38,7 @@
 		my $cu=substr($upper,$i,1);
 		if ($i==0) {
 			$new.=$cu;
-		} elsif ($cl =~ / .-/) {
+		} elsif ($cl =~ / \.-/) {
 			$i++;
 			$new.=$cl.substr($upper,$i,1);
 		} else {