perl -e '
$a = 5;
$b = 5;
$c = 5;

if ( ($a == $b) == $c ) {
    print "They are the same\n";
} else {
    print "They are not the same\n";
}
'