Select Code to Download

$ perl -MO=Deparse,-p -e ' ($t[0] == $s[0] && $t[0] == $e[0]) ? $r[0] 
+= 1 : $r[0] = 0; '
(((($t[0] == $s[0]) && ($t[0] == $e[0])) ? ($r[0] = 1) : $r[0]) = 0);
...
($r[0] = ((($t[0] == $s[0]) && ($t[0] == $e[0])) ? 1 : 0));
-e syntax OK

$ perl -le'
@test = ( [ 10, 12, 14 ], [ 12, 12, 14 ], [ 12, 14, 14 ], [ 12, 12, 12
+ ], [ 14, 10, 14 ] );
...
2:  14  10  14  0
3:  14  10  14  0