print +($_+0 eq $_ ? ' ' : 'not '). "numeric: $_\n" for qw( 1 01 a01 -3 -01 .1 ) numeric: 1 not numeric: 01 not numeric: a01 numeric: -3 not numeric: -01 not numeric: .1