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

##</code><code>##

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