+ if (/$coolstuff/) {
+ if (/^([>|][>|\s]*)/) {
+ if ($indent ne $1) {
+ print "\n" if $len;
+ $len=0;
+ $indent=$1;
+ $indent_printed=0;
+ }
+ }
+ else {
+ if (length $indent && $indent_printed) {
+ print "\n";
+ $len=0;
+ }
+ $indent="";
+ $indent_printed=0;
+ }
+
+ while(/(($coolstuff)[.?!]*)/ig) {
+ $len+=length($1)+1;
+ if ($len > 70) {
+ print "\n";
+ $len=0;
+ }
+ if (length $indent && ! $indent_printed) {
+ print $indent;
+ $indent_printed=1;
+ }
+ print $1." ";