use Regex::PreSuf;
my $re = presuf(10..374, 376..379, 382..385, 388..499, 530..534, 541..543, 618, 619, 700..704, 707..709);
print "Regex: /$re/\n";