strict::bits(C:/Perl/lib/strict.pm:95):
95:	    foreach my $s (@_){ $bits |= $bitmask{$s} || 0; };