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