#!/usr/bin/perl
# morimoto@marib.imagica.co.jp
# tr with DBCS does not work with vanilla perl.

while(<>){
	@a = split(',');
	$zip = $a[2];
	$zip =~ s/"//g;
	$zip =~ s/(\d\d\d)(\d\d\d\d)/$1¡¼$2/g;
	$zip =~ s/0/£°/g;
	$zip =~ s/1/£±/g;
	$zip =~ s/2/£²/g;
	$zip =~ s/3/£³/g;
	$zip =~ s/4/£´/g;
	$zip =~ s/5/£µ/g;
	$zip =~ s/6/£¶/g;
	$zip =~ s/7/£·/g;
	$zip =~ s/8/£¸/g;
	$zip =~ s/9/£¹/g;
	$ad = join('', @a[6,8]);
	$ad =~ s/"//g;
	$ad =~ s/°Ê²¼¤Ë·ÇºÜ¤¬¤Ê¤¤¾ì¹ç//;
	print "$zip\t$ad\tÃÏ̾\t1\n";
}

__END__