adventofcode/23/2b.pl

$a = 1;
$b = 79;
$c = $b;
goto L5 if $a;
goto L9 if 1;
$b *= 100;
$b -= -100000;
$c = $b;
$c -= -17000;
$f = 1;
$d = 2;
$e = 2;
$g = $d;
$g *= $e;
$g -= $b;
goto L17 if $g;
$f = 0;
$e -= -1;
$g = $e;
$g -= $b;
goto L12 if $g;
$d -= -1;
$g = $d;
$g -= $b;
goto L11 if $g;
goto L27 if $f;
$h -= -1;
$g = $b;
$g -= $c;
goto L31 if $g;
goto L33 if 1;
$b -= -17;
goto L9 if 1;