system("grep 'packet loss' ... > /home/.../$TARGET_HOST.PL.log");

##</code><code>##

open(PL, "grep ... | ... |")
  or die "unable to open pipe from grep command: $!";
while (<PL>) { ... }
close(PL);