$len = $str =~ tr/-//;