my $nr_of_lines = $str =~ tr/\n//;