$tmp =~ s/((?:<line>\s*(?:.{1,$short_line_threshold})<\/line>\s*){$short_line_counter,})(<line>\s*(?:.{$long_line_threshold,}?)<\/line>)/$1<\/para><para>$2/gs;