I suggest you to use

next if ($line !~ /logging\sto\sDevice\s(.*?)\s+/i) 
    and !eof(inFile);
[download]

instead of

next if ! ($line =~ /logging\sto\sDevice\s(.*?)\s+/i) 
    and ! eof inFile;
[download]

Use parentheses wherever you can, it will help us to read your code :) As perlstyle says, the fact that you can omit parentheses doesn't means that you should not write them :).