open (PAGE, "<staging.log");
[download]

I suspect that staging.log is playing tricks on you, but having a blank line at the end of the file. You can always check if the contents of the current instance of $line is empty before you assign it to $newline.

Something like this:

if( $line =~ /^\s*$/ ) {
  $newline = "Blank line.";
} else {
  $newline = $line;
}
[download]

Or, better yet, you could play around with debug mode and step through the program as it runs.

elbieelbieelbie

If you're sure that's the only line in the file, a simpler and perhaps less error-prone method is to use:

$newline = join("",<PAGE>);
[download]

which will read in all of the lines from the file and concatenate them into one string.

In any case, printing out $newline as a debugging aid will probably help you track this problem down without sending a zillion messages.

No one took the bait, so I will :)

What would be a more efficient way of doing it?

One way of doing it more efficiently:

    while ($newline = <HANDLE>) {}
[download]

It's very inefficient to first read in all the lines into an array, and then setting $newline to each entry of the array, ending at the last.

If the file is big, you might want to read backwards from the end.

Abigail