Index: /lang/perl/Geography-AddressExtract-Japan/trunk/lib/Geography/AddressExtract/Japan.pm
===================================================================
--- /lang/perl/Geography-AddressExtract-Japan/trunk/lib/Geography/AddressExtract/Japan.pm (revision 1572)
+++ /lang/perl/Geography-AddressExtract-Japan/trunk/lib/Geography/AddressExtract/Japan.pm (revision 1573)
@@ -67,8 +67,6 @@
         $opt{aza}    = $2 if $2;
         $opt{number} = $3 if $3;
-
-	$self->normalize($', \%opt);#');
-			 
-	push @{ $self->{addresses} }, Geography::AddressExtract::Japan::Address->new(%opt);
+        $self->normalize($', \%opt);#');
+        push @{ $self->{addresses} }, Geography::AddressExtract::Japan::Address->new(%opt);
     }
 }
@@ -78,11 +76,12 @@
 
     if ($opt->{number} && $opt->{number} =~ /^([���������岼])/) {
-	my $prefix = $1;
-	if ($right =~ /^((?:��?)?[-���ݤΥ�?(?:(?:(?:[�����͸����Ȭ����)?[�����͸����Ȭ�塻]+|\d+)|[a-zA-Z����)��/) {
-	    my $append = $1;
-	    $opt->{aza} .= $prefix;
-	    $opt->{number} =~ s/^$prefix//;
-	    $opt->{number} .= $append;
-	}
+        my $prefix = $1;
+        if ($right =~ /^((?:��?)?[-���ݤΥ�?(?:(?:(?:[�����͸����Ȭ����)?[�����͸����Ȭ�塻]+|\d+)|[a-zA-Z����)��/) {
+            my $append = $1;
+            $opt->{aza} .= $prefix;
+            $opt->{number} =~ s/^$prefix//;
+            $opt->{number} .= $append;
+            $opt->{match_text} .= $append;
+        }
     }