Help for this page
Select Code to Download
Select
or
download this
my $line_num = 1 + ( () = substr($text, 0, $-[0]) =~ /\n/g );