my @captured_output = split(/\n/,$ls_captured_line);
...then...
foreach (@captured_output)
{
   print socket "$_\n";
}