Assuming that your target strings don't change, tack a /o onto the assembled regexp invocation to compile it once. (See perlre for details.)