my @values = map {
    my $method = $_->[1];
    sprintf "%s [$_->[0]]", format_name($_->[1]), $record->$method;
} (
    ['%s'    => 'country'],
    ['%s'    => 'region'],
    ['%s'    => 'city'],
    ['%s'    => 'postal_code'],
    ['%.4f'  => 'latitude'],
    ['%.4f'  => 'longitude'],
    ['%s'    => 'time_zone'],
);

my $command = sprintf('say IP: (%s) Hostname: [%s] %s',
    $ip, $hostname, join(' ', @values),
);
say $command; # Xchat::command($command);

sub format_name {
    return join ' ', map { ucfirst } split /_/, shift;
}