foreach my $s ( @body ){
  print $s;
}