Help for this page
use strict; use warnings; ... ------- <nl><item num="1">asdfasdf</item><item num="2">asdfasdf</item></nl><nl +><item num ="1">asdfasdf</item><item num="2">asdfasdf</item></nl>
$string =~ s|<nl>((?:(?!</nl>).)*)</nl>|my $item = $1; my $no = 1; $it +em =~ s/<item>/'<item num="'.$no++.'">'/egs;"<nl>$item</nl>"|egs;