c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my (@streams, @spaces);
 ;;
 for my $result (
   'ws.abc.dsfsfsfwerfrwef std 13232',
   'ws.dfsdferferfregregrgr std 99868 Y',
   'ws.abc.asddwefewfewfewf std 45345',
   'fwfrwfrefergegregerefds std 36754 Y',
   'ws.abc.fferfergregrfreg std 45435',
   ) {
   my ($first, undef, undef, $fourth) = split m{ \s+ }xms, $result;
   if ($fourth) {
     unshift @streams, $first;
     }
   else {
     push @spaces, $first;
     }
   }
 ;;
 dd \@streams;
 dd \@spaces;
"
["fwfrwfrefergegregerefds", "ws.dfsdferferfregregrgr"]

[
  "ws.abc.dsfsfsfwerfrwef",
  "ws.abc.asddwefewfewfewf",
  "ws.abc.fferfergregrfreg",
]