my $string= "\x42\x8C\x00\x00";
my $float= unpack "f", pack "L", unpack "N", $string;