Select Code to Download

$ perl -E '/^0$/ and say for qw{19 -22 498 512 15 -932 0 22 808 17 -32
+}'
0
...
-22
-932
-32