$ perl -E '/^0$/ and say for qw{19 -22 498 512 15 -932 0 22 808 17 -32}'
0
$ perl -E '/^[1-9]\d*$/ and say for qw{19 -22 498 512 15 -932 0 22 808 17 -32}'
19
498
512
15
22
808
17
$ perl -E '/^-[1-9]\d*$/ and say for qw{19 -22 498 512 15 -932 0 22 808 17 -32}'
-22
-932
-32