Select Code to Download

my $x = int($str+0);

my @test = qw(in inf info information INF INFO Na Nan Nanny NAN NANNY 
+nan04);
foreach my $x (@test) {
  my $y = int($x);
  printf "%11s -> %s\n", $x, $y;
}

         in -> 0
        inf -> Inf
...
        NAN -> NaN
      NANNY -> NaN
      nan04 -> NaN