Select Code to Download

my ($line1, $line2) = split /[\r\n]+/, $message;

my @lines = split /[\r\n]+/, $message;
print "Line1: " . $lines[0];