my $size    = 30;
my $field   = 'fred';
my $counter = length($field);
while ($counter < $size) {
    $field .= ' ';
    $counter++;
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.