$ perl -le " print int $_ for qw/ na nan nanners in inf infant /"
0
-1.#IND
-1.#IND
0
1.#INF
1.#INF