Fill the columns of a outline text.

outlinefill.pl

#!/usr/bin/env perl                                                                                                                                                                          

# outlinefill.pl <outline indent chars> <output delimiter>                                                                                                                                   

@b = ();

while (<STDIN>) {
    chomp;
    @a = split /$ARGV[0]/, $_;
    @b = () if ($#a < $#b);
    foreach $i (0 .. $#a + 1) { $b[$i] = $a[$i] if ($a[$i]) }
    print join(eval("\"$ARGV[1]\""), @b)."\n";
}