$data = 99.9660;
if(!($data == 100 || $data =~ /^\d{0,2}(\.\d{0,2})?$/)) {
  print "Invalid";
}