Where Regexp::Optimizer and Regexp::Assemble are for patterns, Regexp::List is for text.

use Regexp::List;

print Regexp::List->new->list2re(qw(
abcpwbln08
abcpwbln07
abcpwbnn10
abcpwbnn06
adesicln09
adesicln08
adesicln01
adesicnn05
));
[download]