what did you try so far?

If it's _always_ (as in completely written in stone) exactly two lines, then just declare them and populate w/split:

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

If anything other than that, then you're probably better off w/an array:

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