if($_ =~ /<blk id="(.+?)"\/>/g)
   {
      my $blk=$1;
      if($blk != \d){print "Invalid value"}
   }