my $count = () = $new =~ /[^\Q$old\E]/g;