Есть строка, допустим 'blabla'.
Можно ли с помощью format (perlform) получить такое:
/* -------------- *
* Title : blabla *
* -------------- */
Для строки другой длины будет соответственно:
/* -------------------- *
* Title : blablablabla *
* -------------------- */
Я понимаю, что можно нагородить всяких
$separator = "-" x length($title);
но хотелось бы разобраться из любопытства.