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

##</code><code>##

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