$_ = 'abcab';
if(/^(.)(?!\1)(.)(?:(?!\1|\2).)\1\2$/){
    print "$&\n";
}