$ perl -MScalar::Util=looks_like_number \
    -le'print looks_like_number("1E0")?1:0'
1

$ perl -le'print for 1E0, "1E0"'
1
1E0