Select Code to Download

#$body is the reference to the array of lines
my $body=$item->body;
...
foreach my $line (@$body){
  print $line;
}

print "5th line=$body->[4]\n";