DB<1> l
5==>    my $text = "my text [and maybe|and here's] more text [the end|stop]";
6:      my @arr  = parseit($text);
7:      print "$_\n" for @arr;
8
9       sub parseit {
...