Select Code to Download

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

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

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

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