my $phone = '1234567890';
printf("(%s)%s-%s\n", unpack "A3 A3 A*", $phone);