print $item->{'title'} for(@{$data->{'channel'}->{'item'}});
[download]

Something like that oughta get you on your way :)