egrep '^.{5}$' /usr/share/dict/words \
  | perl -MRegexp::Assemble -nl \
  -E 'BEGIN{$ra=Regexp::Assemble->new}' \
  -E '$ra->add($_);' \
  -E 'END{say $ra->re}'