my $bitfield = '1';  $bitfield = 0+$bitfield;