my $line_num = 1 + ( () = substr($text, 0, $-[0]) =~ /\n/g );