A regular may not be the best choice there. Personally, I'd split and choose split and printf. There are many other choices.

my @a = split /\|/, $line;  # we still split with a regular ...
printf("%-43s %s\n", @a);
[download]