my ($bar, $space) = $lines[-1] =~ /\[(=*)(\s*)\]/;
my $length = length($bar) + length($space);
print STDERR
("LENGTHS (1) :BAR:", length($bar), ":SPACE:", length($space), "\n")
if $ENV{TEST_DEBUG};
my $barexpect = $length * 0.3;
my ($bar, $space) = $lines[-1] =~ /\[(=*)(\s*)\]/;
my $length = length($bar) + length($space);
print STDERR
("LENGTHS (1) :BAR:", length($bar), ":SPACE:", length($space), "\n")
if $ENV{TEST_DEBUG};
my $barexpect = $length * 0.3;