perl -lne "$q = chr(34); print qq($2.$1) if /<metaatribute metaattribute-name=$q([^$q]*?)$q metaobject-name=$q([^$q]*?$q/"