* Ted Fiedler <fiedlert at gmail.com> [2008-01-16T14:57:49] > > my $ra = Regexp::Assemble->new; > $ra->add( 'ab+c' ); > $ra->add( 'ab+-' ); > $ra->add( 'a\w\d+' ); > $ra->add( 'a\d+' ); > print $ra->re; # prints a(?:\w?\d+|b+[-c]) I get: (?-xism:a(?:\w?\d+|b+[-c])) Regexp::Assemble is up to date (0.32). perl 5.10.0 -- rjbs