while( my $line = shift @$msg )
{
  last unless length $line;
}

for( @$msg )
{
  print "Body: $_";
}