c:\@Work\Perl\monks>perl -wMstrict -le
"my $phone = '(777) 1234-0000 RAM:007';
 print qq{'$phone'};
 ;;
 my %xlate = ( '(' => '',  ') ' => '-' );
 ;;
 $phone =~ s{ ([()][ ]?) }{$xlate{$1}}xmsg;
 print qq{'$phone'};
"
'(777) 1234-0000 RAM:007'
'777-1234-0000 RAM:007'