my $foo = 'abc|def|ghi|jkl|mno';
my @bar = split('|', $foo, 3);