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