#!/usr/local/bin/perl
while (<>)
{
  if (!/	31:/)
  {
    chop;
    s/	1:[^	]*//;
    $phone = "";
    if (/	32:([^	]*)/) {$phone=$1;}
    elsif (/	33:([^	]*)/) {$phone=$1;}
    elsif (/	37:([^	]*)/) {$phone=$1;}
    if ($phone ne "")
    {
      s/$/	1:$phone/;
    }
    s/	0:[^	]*//;
    $addr = "";
    if (/	22:([^	]*)/) {$addr=$1;}
    elsif (/	20:([^	]*)/) {$addr=$1;}
    elsif (/	21:([^	]*)/) {$addr=$1;}
    if ($addr ne "")
    {
      s/$/	0:$addr/;
    }
    print $_ . "\n";
  }
  else
  {
    print $_;
  }
}
