sam_0056 has asked for the wisdom of the Perl Monks concerning the following question:
my ($line1, $line2) = split /[\r\n]+/, $message; [download]
my @lines = split /[\r\n]+/, $message; print "Line1: " . $lines[0]; [download]