# sub splBRK -- breaks a line of undefined length by	replacing each $splBRK with a \n\t
#
# BUT the split /$splBRK/...  (with or w/o parens) is NOT removing all splBRKs
# NOR does it work with "/~~/" sted "/$splBRK/"

sub splBRK {

$_ = $aphor;
	if (/$splBRK/) {				# are there any $splBRK???
	print "\n\tFrom sub_splBRK: splBRK found\n";   # DEBUG stmnt
	} else {
	print "\n\n\t NO splBRK found\n";
	&shortenlines;
	exit(75);
	}		     						

my @sect = split /$splBRK/;
$new= join "\n\t", @sect;
&shortenlines;
}