$binary = unpack 'B*', pack 'N', $decimal;
$binary =~ s/^0+//;