#!/usr/bin/perl

$string = "foofoo catbar";

for ($i = 0; $i<5000000; $i++) {
    if ($string =~ m/(foob|)foofoo/) { }
#   if ($string =~ m/(foob)?foofoo/) { }
}