@res = split /\n/, $result;
foreach $element (@res){

   if ($element=~/(.*NONE)$/m){
       push @none, $element;
   }
}