my $countlines = () = $string =~ m/n/gs;