#!/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";