>perl -wMstrict -le
"my $quo = 0b10010110 / 0b1110;
 my $n   = $quo       * 0b1110;
 printf qq{%f %b;  %f %b \n}, $quo, $quo, $n, $n;
 ;;
 use integer;
 $quo = 0b10010110 / 0b1110;
 $n   = $quo       * 0b1110;
 printf qq{%f %b;  %f %b \n}, $quo, $quo, $n, $n;
"
10.714286 1010;  150.000000 10010110
10.000000 1010;  140.000000 10001100