#!/usr/bin/env perl
#
# sudo /opt/local/bin/gluemac "/Applications/Address Book.app"
#
use strict;
use warnings;

use Data::Dumper;
use Mac::Glue ':glue';

my $addr = Mac::Glue->new('Address Book');

foreach ($addr->obj('people')->get){
	foreach ($_->prop('phones')->get){
		my $num = $_->prop('value')->get;
		$num =~ s/(-|\/| )//g;
		$num =~ s/^0/\+49/g;
		$_->prop('value')->set(to => $num." ");
	}
}