Help for this page
Select Code to Download
Select
or
download this
$_ = 'BBB'; print /(.)[^\1]\1/ ? 'match' : 'no match';