perl -MData::Dumper -e '
$str ="ABC[GHI]XYZ"; 
@arr= split(/[\[\]]/,$str); 
print Dumper \@arr;'