#!/usr/bin/perl -w
$_="hello woooroold";
/(?:
 ((.)\2+) (?{$c++ if length($1)==2})
 | .
 )*
 (?{ print 0+$c})
/x;