あまりにvcfが汚いので整理用...

#!/usr/bin/perl
# vcfの
# FN: "管 直人 様" の様をとりさる
# N: "管;直人;;;様" の様をとりさる
# X-PHONETIC-LAST-NAME: が半角文字だったら全角ひらがなにする\
#  Unicode::Japaneseのインストールが必要；see http://ugawalab.miyakyo-u.ac.jp/m6/fukuchi/blog/2009/09/unicodejapanese.html
# その他はそのままにする
# perl vcfchange.pl < contacts.vcf >output.vcf

use utf8;
use Unicode::Japanese;

binmode STDOUT, ":utf8";
binmode STDIN, ":utf8";

while(<>) {
	chomp;
	$n = $_;
	if(substr($n,0,3) eq "FN:") {
		if(substr($n,-3,2) eq " 様") {
			print substr($n,0,-3) . "\n";
		} else {
			print $n . "\n";
		}
	} elsif(substr($n,0,2) eq "N:") {
		if(substr($n,-2,1) eq "様") {
			print substr($n,0,-2) . "\n";
		} else {
			print $n . "\n";
		}
	} elsif(substr($n,0,21) eq "X-PHONETIC-LAST-NAME:") {
		$str = Unicode::Japanese->new(substr($n,21),'utf8')->h2z->kata2hira->getu;
		print "X-PHONETIC-LAST-NAME:" . $str . "\n";
	} else {
		print $n . "\n";
	}
}