use strict; use warnings; use Regexp::Assemble; my $r = Regexp::Assemble->new; $r->add('2L', 'bar.2L'); my $pattern = qr/($r)/;