ネタもないことだし、Regexp::Assemble #
こんなスクリプトを保存しておいて
#!/usr/bin/perl
use strict;
use warnings;
use Regexp::Assemble;
exit unless @ARGV;
my $r = Regexp::Assemble->new;
$r->add($_) for @ARGV;
print $r->re,"\n";
実行すると
[name@host]$ regexp kawabata kazumichi
(?-xism:ka(?:zumichi|wabata))
とかなって、横着できて便利