10 my ($reg, $op, $val, $creg, $cop, $cval) =
11 /^(\w+) (\S\Sc) (-?\d+) if (\w+) (\S+) (-?\d+)/;
14 say "$reg $op $val $creg $cop $cval";
15 if ($cop eq '<' && $regs{$creg} < $cval
16 || $cop eq '>' && $regs{$creg} > $cval
17 || $cop eq '==' && $regs{$creg} == $cval
18 || $cop eq '!=' && $regs{$creg} != $cval
19 || $cop eq '<=' && $regs{$creg} <= $cval
20 || $cop eq '>=' && $regs{$creg} >= $cval) {
29 use List::Util qw(max);