Select Code to Download

When what I want is 
+----+----+----+----+
...
|    |    |    |    |
|    |    |    |    |
+----+----+----+----+

 while ($boxLine =~ s/(\.+)/sprintf("%-*d", length($1), $wordNum)/e) {
   $wordNum++
 }