$count = ($string =~ tr/\n/\n/);