Something like this?

my $str = 'a|b|c|d|e|f|g|h|i|';
$str =~ s/(?:.*?\|){3}\K/\n/g;
print $str;

__END__
a|b|c|
d|e|f|
g|h|i|
[download]