They all worked!

my %xlate = ( '(' => '',  ') ' => '-' );
$phone =~ s{ ([()][ ]?) }{$xlate{$1}}xmsg;

# OR

$phone =~ s{ \( \s* (\d{3}) \s* \) \s* }{$1-}xmsg;
[download]

I need to go back and read on these lines of code, very clever, thank you very much!!