My quick guess would be: try splitting by "\n". Perl should be smart enough to figure out that it's actually two characters. So, try this:

@lines = split(/\n/,$decrypted);
[download]

And in case you are wondering why this should work, here is an explanation of the details.

UPDATE:

Another suggestion - there is no need to run split twice, this is enough:

@lines = split(/\n/,$decrypted);
$num_lines = @lines;
[download]

Now, when you modify the split regexp, you only have to do it in one place.

Good luck with your project, and welcome to the Monastery.