perl -E 'my $x= "NaN"; say $x+0; say int($x); { use integer; say $x+0 }'
NaN
NaN
0