Perl_scan_num: use ldexp() instead of multiplying pow(2.0, ...)

Perl_scan_num: use ldexp() instead of multiplying pow(2.0, ...) #4325