Alternatively, you could use the Text::Reform module:

    use Text::Reform;

    print form
    "         -------------------------------------------------",
    "         [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[",
              $cookie,
    "         ||||||||||||||||||||||||||||||||||||||||||||",
              $author,
    "         -------------------------------------------------";
[download]