scn_perl.sh
#!/usr/bin/perl -w

use strict;
use bignum;

my ( $scnHi, $scnLo ) = split ('\.', '0x0000.00766f44' );

my $scn = ( (hex $scnHi ) << 32 ) + hex $scnLo;

print "$scn\n";