正規表現を組み立てるモジュール

Regexp::Assemble を使うと、正規表現をほぼ自動的に生成できます。 perl - Regexp::Assemble のススメも参考になります。

use Regexp::Assemble;

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])

例のように非常に簡単に使うこともできますし、工夫するとメールアドレスや電話番号の正規表現を生成したり、自ら成長する正規表現を生成したりもできます。使ってみると結構楽しめるモジュールです。