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