print +(isnum($_) ? "is a number" : "not a number"), ": $_", $/
  for qw( 1 2.2 3e3 4. .5);

__output__

is a number: 1
is a number: 2.2
is a number: 3e3
is a number: 4.
is a number: .5