在Perl中有没有比打包/解包更快的方法来获取浮点数位？

my $binary_data = pack('d', $float_number);  # 将浮点数打包成二进制数据
my @bytes = unpack('C*', $binary_data);  # 将二进制数据解析成字节数组

# 获取浮点数的符号位
my $sign_bit = ($bytes[7] >> 7) & 1;

# 获取浮点数的指数位
my $exponent = (($bytes[7] & 0x7F) << 4) | (($bytes[6] & 0xF0) >> 4);

# 获取浮点数的尾数位
my $mantissa = (($bytes[6] & 0x0F) << 48) | ($bytes[5] << 40) | ($bytes[4] << 32) |
               ($bytes[3] << 24) | ($bytes[2] << 16) | ($bytes[1] << 8) | $bytes[0];

# 输出浮点数的符号、指数和尾数
print "符号位：$sign_bit\n";
print "指数位：$exponent\n";
print "尾数位：$mantissa\n";