How Wrong You Are

[mojotoad]

#!/usr/bin/perl

use strict;
use warnings;
use Scalar::Util;

my $str = 'XP';
print "$str does",
      Scalar::Util::looks_like_number($str) ? '' : ' not',
      " look like a number.\n";

yields:

$ ./bs.pl
XP does not look like a number.

Tsk, tsk.
Matt