foreach my $re(@results){                            
next if $re =~/^AVUs defined/; 
warn $re; 
my $attribute= $1 if($re =~ /^attribute:\s+(.*)/);                                             
my $value = $1 if($re =~ /^value: (.*)/);                                                       |  warn $attribute,$value;