$num =~ m{
  \A
  5
  (?:
    2 (?: 7[89] | [89][0-9] )
    |
    3 (?: [0-8][0-9] | 9[01] )
  )
  \z
}x;