#!usr/bin/perl
use warnings;
use strict;

my @input = qw /0001144204-09-017358 
                0001144204-10-065610 
                0001042167-15-000175 
                0000053669-16-000051 /;
                
foreach my $string (@input)
{
   $string =~ tr/-//d;
   print "string = $string\n";
   print "string +10 as number: ", $string + 10,"\n";
}

__END__
prints:
string = 000114420409017358
string +10 as number: 114420409017368
string = 000114420410065610
string +10 as number: 114420410065620
string = 000104216715000175
string +10 as number: 104216715000185
string = 000005366916000051
string +10 as number: 5366916000061