use warnings;
use strict;

my $num = '0001144204-09-017358';
print "$num\n";
$num =~ tr/-//d;
print "$num\n";

__END__

0001144204-09-017358
000114420409017358