#!/usr/bin/perl

use strict;
use Text::RewriteRules;

use Data::Dumper;
print Dumper pp( ' {a} [d]  b= [batatas, {tomates}, ceboas ] ');
my $a;

RULES/m pp
=b=> my $a;
([[:CBB:]])=e=> push(@$a,"//$1//"); ""
([[:BB:]])=e=> push(@$a,"//$1//"); ""

$=l=> !! push(@$a,$_) and return $a
ENDRULES
print Dumper($a);