my $pos_of_nl = rindex $str, "\n", 10-1;