while($_ = <STDIN>)
{
 s/^TEL;type=(.*?);type=pref:(.*)/TEL;\1:\2/;
 s/^TEL;type=(.*?):(.*)/TEL;\1:\2/;
 s/^TEL;pref:/TEL;HOME/;
 s/^TEL:/TEL;HOME:/;
 print $_;
}
