Select Code to Download

$n = unpack 'N', pack 'B32', '01000010001111000000000000000000';;

...
$num = ($s? -1 : 1 ) * $e * 10**$c;;

print $num;;

sub parse_E ($) {
    my $data = shift; ## The data comes in as a 4-byte string so...
...

    return $num;
}