Perl line count per line

Question

Using perl, is there any one command that gives me the number of lines inside a line?

my $linenum= .... $str ....

It should work when a line is empty, one line and several lines.

Answer 1

Try using regex

Answer 2

You can count the number of newline characters \nper line (or \rfor a newline Mac)

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