study $text;   # added before call to cmpthese above

         Rate  index regexp
index   364/s     --   -71%
regexp 1274/s   250%     --