($f,$s,$t,$l)=@ARGV;open(FH,$f);while(<FH>){chop;s#^\s?(.*)\s?#$1# if!$t
;last if/^exit;$/|/^##$/;$b=$a.=$_ if!(/^#/|/#-$/)}$l||=72;print++$c==5&
!$s?"\e[31m$&$/":$&.$/while$b=~s#^.{$l}##;printf"%s\n%s %s\n%s %s".$/,$s
?$b:(($c>3?"\e[31m":"")."$b\e[m\n",$t=length($b),$l-$t,$c+1,$b=length$a)