$_ = 'BBB';
print /(.)[^\1]\1/ ? 'match' : 'no match';