use strict;
 .
 .

next unless s->{ID} =~ /\d\d+/;
  .
  .