$str =~ m{<item><i>(.*?)</i></item>}

##</code><code>##

$str =~ m{<item><i>(.*?)</i></item>}g

##</code><code>##

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

##</code><code>##

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