$string =~ s|<nl>((?:(?!</nl>).)*)</nl>|my $item = $1; my $no = 1; $item =~ s/<item>/'<item num="'.$no++.'">'/egs;"<nl>$item</nl>"|egs;