reg exp speed test

reg_exp_speed_test.cfm

<cfscript>
function test(pattern) {
    return ReReplace(s, pattern, "-----", 'all');
}
s = "Fred Bloggs says 'My name is Fred 
bloGGs my brother is Alfred Bloggs and I blog about people called fred or freddie'. x:Fred bloggss y: Fred bloggsss Yours FRED   BLOGGS";
variations = [
    "(?im)(?:(\b|^)Fred\s+Bloggss?(\b|$))",
    "(?im)(\b|^)Fred\s+Bloggss?(\b|$)",
    "(?im)\bFred\s+Bloggss?\b",
    "(?im)(:?(\bFred\s+Bloggss?\b))",
];
iterations = 100000;
for (pattern in variations) {
    i = 0;
    start = getTickCount();
    while(i<iterations) {
        i++;
        redacted = test();
    }
    writeoutput("'#pattern#' took" & start-getTickCount() & "<br>");
    writeoutput(redacted & "<hr>");
}
</cfscript>