The documentation for Regexp::Assemble says:

"Note that Perl's own regular expression engine will implement trie optimisations in perl 5.10"

So a simple alternation may be just as fast now.