my @x;
while ($str =~ m{<item><i>(.*?)</i></item>}g) {
   push @x, $1;
}