my $input = '00117.00031.00846.00000.00000';
my @fetch = $input =~ m/00(\d\d\d)\.000(\d\d)\.00(\d\d\d)\.00000\.00000/;
my $res   = join "", @fetch;
print "$res\n";