use strict; use warnings; use File::Slurp qw(edit_file_lines); sub fix { my @fields = split / +/; $fields[1] = sprintf "%-50s", $fields[1]; $_ = join ' ', @fields; } edit_file_lines \&fix, $file_name;