print '100 is numerically ', 100 == $_ ? ' the same ' :' different, ', 'and lexically ', 100 eq $_ ? ' the same ' : ' different', ' to ', "$_", $/ for qw[100 100.0 1e2 .1e3 1000e-1] 100 is numerically the same and lexically the same to 100 100 is numerically the same and lexically different to 100.0 100 is numerically the same and lexically different to 1e2 100 is numerically the same and lexically different to .1e3 100 is numerically the same and lexically different to 1000e-1