>perl -wMstrict -le
"my $s = 'aaa...bbbb...ccccc...dddddd.x..yy';
 print qq{'$2'} while $s =~ m{ (.)\1\1 \K (\1*) }xmsg;
"
''
''
'b'
''
'cc'
''
'ddd'