Re^4: Increasing a field size for a record

[Athanasius]

Good point! After a little experimentation, it appears that the following also works:

for my $line (@lines)
{
    my @fields  = split ' ', $line;
    $fields[1] .= ' ' x (50 - length $fields[1]);
    $line       = join(' ', @fields);
}

Thanks, nice catch!