perl hex2string from stdin

   # my $hex =  '0x428C0000';
   #    $hex =~ s/0x//i; # Strip the hex 0x if present
while (<STDIN>) {
chomp;
print "input: $_          ";
my $hex = $_;
print "rev:";
print unpack "f", reverse pack "H*", $hex ;
#print "         nml:";
#print unpack "f",         pack "H*", $hex ;
print "\n";
}