my @body = @{ $message->Body }; # force array context 
foreach my $line ( @body ){

	## process to your heart's content

}