ok: [cgva1lbpmor001m] => { "result.stdout_lines": [ "SOURCE FSTYPE SIZE USED AVAIL USE% TARGET", "kmhpemcfspa21:/oracle_depot nfs 130.1G 77.2G 52.9G 59% /export/oracle", "kmhpemcfspa21:/oracle_dump nfs 11.5T 1.8T 9.7T 16% /export/oracle_dump" ] } #### my $export; my %exports; open(OUT, "<", "$OUTF") or die "cant open file: $!"; while ( my $line = ) { next unless $line =~ /nfs/; chomp $line; ($export = $line) =~ s/\s+"(.*)\s+nfs.*/$1/; $export =~ s/\s+//g; $exports{$export} = 1; }