my $filename = '0092042095432.dat';
  my $part     = substr( $filename, 0, 4 );