perl -pi -e '/l1(\sid=.*)>/?$a=$1:s;l2>;l2$a>;' input