#actual data came over the network with inconstant line ends.
my $text = "some\r\nmulti-line\ntext";
my $line_count = $text =~ s/\r?\n/\n/g;