if ( grep length( $_ ) == 2, /([A-Za-z]\1+)/g ) {
   say "match";
} else {
   say "no match";
}