正規表現に迷ったらRegexp::Assemble

perl -MRegexp::Assemble -E "say Regexp::Assemble->new->add('ab+c')->add('ab+-')->add('a\w\d+')->add('a\d+')->re"

って感じのワンライナーが使える事にたった今気づきました。
上記を実行すると、

(?-xism:a(?:\w?\d+|b+[-c]))

って感じで出力されるので、

$hoge =~ /(?-xism:a(?:\w?\d+|b+[-c]))/

みたいな感じですぐに使えます。

こんなんまでワンライナーでいけるってのが面白いですよねー。