note
Mago
<code>
perl -pi -e 'if(/<level1(\sid=\".*\")>/){$a=$1};if(/<level2>/){$_=~s/(<level2)>/$1$a>/g}' input
or
perl -pi -e '$a=m/(<level([12]))(\sid=\".*\")*>/;if($a){$2==1?$b=$3:$_=~s/($1)/$1$b/g;}' input
or
perl -pi -e '$a=m/(<level(1|2))(\sid=\".*\")*>/;$a?$2==1?$b=$3:$_=~s/($1)/$1$b/g:next;' input
or
perl -pi -e '$a=m;(<level(1|2))(\sid=\".*\")*>;;$a?$2==1?$b=$3:$_=~s;($1);$1$b;g:1;' input
</code>
or
golf by <a href="?node_id=260843">monsieur_champs</a>
<code>
perl -pi -e 'm;(<level(1|2))(\sid=\".*\")*>;;$&?$2==1?$b=$3:$_=~s;($1);$1$b;g:1;' input
</code>
sorry =) -1 char
<code>
perl -pi -e 'm;(<level(1|2))(\sid=\".*\")*>;;$&?$2==1?$b=$3:$_=~s;($1);$1$b;g:1' input
</code>
insane !!! 33 chars<br>
<code>
perl -pi -e '/l1(\sid=.*)>/?$a=$1:s;l2>;l2$a>;' input
</code>
<br>
=)
<br>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-133118">
<br><br>
Mago<br>
mago@rio.pm.org<br>
<br><br>
</div></div>
572538
572556