Select Code to Download

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

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