#or, in v5.6.0
sub dec2bin {return sprintf "%b",shift }
#and
sub bin2dec{ return oct"0b$_[0]"}