Quotekabel@linux:~> perl $binaerZahl = sprintf("%b", 34); print $binaerZahl, $/; $binaerZahl += 5; print $binaerZahl, $/; 100010 100015 kabel@linux:~>