Select Code to Download

Input:
Date|Amount|Category|Description
...
2022-06-24|63.45 |Internet     |RECURRING PAY|
2022-06-24|69.34 |Phone        |RECURRING PAY|
(Col widths 10,6,13,13)

#!/usr/bin/env perl
use v5.36; # implies use warnings
...
        sum(@$aref), $target_weight;
    return $r;
}

~/private/perl$ shrink 100
Before:
...
#5: --------------------- (21)
#6: --------------------- (21)
Weight 100, target 100