Select Code to Download

if ($tally[$i]) {
    printf {$out} "%-20s %30d \n", $regex, $tally[$i] // 0 ;
}

use 5.032;
use autodie;
...
        printf {$out} "%-${max_length}s %3d\n", $regex, $tally[$i] // 
+0 ;
    }
}