no?$data = '[-3|1|29x250+46+26|200+300+444|Get][-3|1|29x250+46+26|200+300 ++444|Get][-3|1|29x250+46+26|200+300+444|Get]'; @data = split /[\[\|x\+\]]/, $data; foreach $i (0 .. $#data){ $i % 11 != 0 ? print $data[$i]," " : print $data[$i],"\n"; } -----output----- -3 1 29 250 46 26 200 300 444 Get -3 1 29 250 46 26 200 300 444 Get -3 1 29 250 46 26 200 300 444 Get
In reply to Re: Perl Regex
by Lennotoecom
in thread Perl Regex
by Buddyhelp
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |