Select Code to Download

#!/usr/bin/env perl

...
        sprintf($sprintf_fmt, @{$record}[0..3], $used_so_far),
        $max_width - $used_so_far, $record->[4];
}

1.......10........20........30........40........50........60
79.30 2022 1 8  The quick brown fox jumps over the lazy dog|
394571.00 22 10 81  The quick brown fox jumps over the lazy|
123456.78 12345 123 1234  The quick brown fox jumps over th|