open my $fh, '-|', 'symdev -sid 1234 list -noport -noreserve|find /I "not visible"'; while (<$fh>) { chomp; my @line = split(/\t/); [...]