$str =~ /^(?:(?:(?:527[8-9])|(?:52[8-9]\d)|(?:53[0-8]\d)|(?:539[0-1])))$/