Select Code to Download

#!perl
use warnings; use strict; use integer;
...
12,1,196,-28,42,62,56,66,134,34,-10,46,24,
unpack"U*",`cat part3.txt`.v0);
$a[1];){$a[2]=-(($a[$a[$a[1]++]]-=$a[$a[$a[1]++]])<0);$a[3]&&print chr
+$a[4]}

#!perl
use warnings; use strict; use integer;
...
12,1,196,-28,42,62,56,66,134,34,-10,46,24,
unpack"U*",`cat part3.txt`.v0);
$a[1];$a[3]&&print chr$a[4]){$a[2]=-(($a[$a[$a[1]++]]-=$a[$a[$a[1]++]]
+)<0)}