$ perl -le'
my $phone = "(xxx)1234-0000";
$phone =~ tr/)(/-/d;
print $phone;
'
xxx-1234-0000