use Text::Reform; print form " -------------------------------------------------", " [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[", $cookie, " ||||||||||||||||||||||||||||||||||||||||||||", $author, " -------------------------------------------------";