in reply to Perl : Split/Regex

Or just twisting the "if" statement of AppleFritter suggestion a bit like this: 

   if($fields[-1] eq 'Y'){
     ...

[download]
there was no longer need for the bit // "" in the if statement. Just a timtoday! 
for my $result (@results) {
    my @fields = split /\s+/, $result;
    if ( $fields[-1] eq 'Y' ) {
        push @streams, $fields[0];
    }
    else {
        push @spaces, $fields[0];
    }
}

[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

In Section Seekers of Perl Wisdom