use 5.010; # Trie alternations
my ($re) = map qr/$_/,
           join '|',
          #map quotemeta,  # Not needed this time.
           250..730;