#! /usr/bin/perl
# jis gb utf
$charcodeS=1;
@charcode=("jis","gb","utf");
#

for ($i=1; $i <= 2; $i++){$dummy = <>;}
#
# code select
#
$line=<>;
if ($line !~ $charcode[$charcodeS]){exit;
}else{
 print "BEGIN:VCARDnVERSION:2.1n";
}
#
while ( $line=<> ){
 if ($line =~ "^X-MS-N-YOMI"){
  ($char,$name)=split(":",$line);
  ($dmy,$charset)=split(";",$char);
  ($lastname,$firstname)=split(";",$name);
#
# Google Contacts PHONETIC
#
  if ($firstname){print "X-PHONETIC-FIRST-NAME;",$charset,":",$firstname;}
  if ($lastname){print "X-PHONETIC-LAST-NAME;",$charset,":",$lastname,"n";}
 }else{
  print $line;
 }
}