language: Perl (perl 5.16.2)
date: 894 days 0 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12

use strict;
use warnings;
 
my @array = ('TEXT[12]|SubText' , 'TEXT2|subText2' , 'TEXT3[34]');
my @result;
 
foreach(@array) {
        push @result,split/[\[\]\|]+/;
}
 
print join ',',@result;