Select Code to Download

use 5.012;
use warnings;
...
      sprintf ($pat => @$aref)
        . " "x$width;
}

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 the|
79.30 2022/1/8 lazy dog                                    |

use 5.012;
use warnings;

...
      sprintf ($pat => @$aref)
          ;
}