Select Code to Download

$mydata=$data->{channel}->{item};
my $data->{channel}->{item}->[0]=$mydata;
...
 while (($data->{channel}->{item}->[$y])&&($y>-1)) {
  $keyword=$data->{channel}->{item}->[$y]->{epfl_keywords};
  ...

$VAR1 = { 'channel' => { 'item' => [ { 'epfl_is_internal' => 'False', 
+'link' => 'http://memento.epfl.ch/event/an-account-of-the-world-s-fir
+st-cubesat/', 'epfl_organizer' => 'eSpace ', 'pubDate' => 'Mon, 16 Ma
+r 2020 14:00:00 +0100', 'description' => "Incl
...

if (exists($data->{channel}->{title})) {
 $mydata=$data->{channel}->{item};
...
 while (($data->{channel}->{item}->[$y])&&($y>-1)) {
  $keyword=$data->{channel}->{item}->[$y]->{epfl_keywords};
  ...

if (1) {
 $mydata=$data->{channel}->{item};
...
 while (($data->{channel}->{item}->[$y])&&($y>-1)) {
  $keyword=$data->{channel}->{item}->[$y]->{epfl_keywords};
  ...