perl -wle '$c = chr(28); $d = "\034";print $c eq $d ? "true" : "false"' true