Select Code to Download

sub padded {
    my ($arg_ref) = @_;
...
        . $arg_ref->{text}
            . $arg_ref->{filler} x $right;
}

for my $line (@lines) {
    $line = padded({ text=>$line, cols=>20, centered=>1, filler=>$SPAC
+E });
}