say /(\[.*?\])/ while <DATA>;