Select Code to Download

my $op = qr/[!=<>]+/;
sub dechain {
...

print dechain('3 < 4 < 5'), "\n";
print dechain('$x < $y <= $z'), "\n";