my $re;
...
{
   $re ||= qr/.../;
   ...
}