my $string = '123-4567';
$string =~ s/-//g;
print $string;