/perl-regexp-assemble/