--- convert.txt.orig	Sun May 30 15:18:22 2004
+++ convert.txt	Sun May 30 15:18:56 2004
@@ -42,7 +42,8 @@
 	my @buf = ();
 	local %newid = ();
 	open IN, "$datadir/$file.dat" or die;
-	foreach (<IN>) {
+	while (<IN>) {
+		chomp;
 		next if /^0+<>/;
 		$_ = new Record($_);
 		next if (keys %{$_} <= 2);