Select Code to Download

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