dynamically generates equal sized dividers for a row of display content based upon the length of the desired line, number of columns, its content and available empty space.

dynamicStringSeparator.pl

my $PARTITION = "================================================================================\n";
my $PARTITIONLENGTH = length($PARTITION)-1;#-1 to remove newline from count
my $emptySpaceLen = $PARTITIONLENGTH - length($partOne.$partTwo.$partThree.$partFour);
my $divider = makeDivider($emptySpaceLen, 4);

my $return = "$partOne$divider$partTwo$divider$partThree$divider$partFour\n";
$return .= $PARTITION; #for this application i needed a partition after each section
return $return;


sub makeDivider{#first arg is length of content second is number of columns
  my $div;
  for (1 .. $_[0]/($_[1]-1)){
    $div .= ' ';
  }
  return $div;
}