print join ", ", $string =~ m/\[(\w+)\]/g;