$x = "123-4567";
$x =~ s/-//g;

##</code><code>##

$x =~ s/\D//g;