use strict;
use warnings;
use Data::Dumper;
my %unitMap;
my $skipNext;
my $count = 0;
my $cmd  = "somecommand";;
open my $fd, "$cmd|" or return \%unitMap;
while (my $row = <$fd>) {
        $row =~ /^$/ and next;
        $row =~  s/[,|)|(]//g;
        chomp $row;
        next if  $row =~ /^Smart/g;
        $row =~ s/^\s+//;
        if( $row =~ /^unassigned/ ){
        $skipNext = 2;
        next;
        }
        if( $skipNext ){
        $skipNext--;
        next;
        }
        print "$ow\n";