if ( $preference =~ tr/0//)