Select Code to Download

sub dec2bin { 
    my $str = unpack('B32', pack('N', shift)); 
    $str =~ s/^0+(?=\d)//; 
    return $str;
}

#!/usr/bin/perl -l

...
    $str =~ s/^0+(?=\d)//; 
    return $str;
}