#!/usr/bin/perl -wl


    my $hex =  '0x428C0000';
       $hex =~ s/0x//i; # Strip the hex 0x if present


    print unpack "f", reverse pack "H*", $hex ;
    print unpack "f",         pack "H*", $hex ;



    __END__
    Prints on an a little endian platform:

    70
    5.03150226600469e-041