perl -MRegexp::Assemble -le 'print Regexp::Assemble->new->add(0..100)->as_string'