while (<>) {
	($name, $rest) = /(\w+(?: \w+)?)\s+(.*)/;
	$aim = (split ' ', $rest)[-1];
	print <<End;
        <CONTACT>
                NAME="$name"
                DEFAULT_PROTOCOL="AIM"
                <ACCOUNT AIM>
                        NAME="$aim"
                </ACCOUNT>
        </CONTACT>
End
}