$phone =~ s/\(//g;
$phone =~ s/\)/-/g;

##</code><code>##

...
my $phone = "(xxx)1234-0000";
$phone =~ s/\(//g;
$phone =~ s/\)/-/g;
print $phone;
# Result: xxx-1234-0000