$msglines = $pop3->get($msgnum) or ...;
$msg = Mail::Internet->new($msglines) or ...;
$body = $msg->body;
for my $linenum (1..@$body) {
   print "Body line $linenum: $body->[$linenum]\n";
}