my $rx = /\d+/;

   for (0..100000) {
      'foo 1 bar' =~ /foo $rx bar/o;
   }