#!/usr/bin/perl
use warnings;
use strict;

my $command = `symdev -sid 1234 list -noport -noreserve|find /I "not visible"`;

my @cmdline = split (/\n/, $command);
my @chgcmdline = @cmdline[5,8];

print "@chgcmdline\n";