while ( ${$ref}{$k}{'DIRTYDATA'} =~ /(Group|Role)\:\s+([\x00-\x7f]*)/g ){
 ${$ref}{$k}{$1} = $2;
}
print "\n\nThis is the Group Name: " . ${$ref}{$k}{Group};
print "\nThis is the Role Name: " . ${$ref}{$k}{Role};