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