$new= join "\n\t", @sect;
&shortenlines;  # uses $amphor for input instead of $new.