Help for this page

Select Code to Download

Select or download this
```
   if($fields[-1] eq 'Y'){
     ...
```

Select or download this

for my $result (@results) {
    my @fields = split /\s+/, $result;
...
        push @spaces, $fields[0];
    }
}