Thanks for all the help Monks.

This worked for me... (taken out of context, it's part of a much larger script...)

        ${$ref}{$k}{'DIRTYDATA'} =~ tr/\x09\x0A\x0D\x20-\x7E/ /c;
        while ( ${$ref}{$k}{'DIRTYDATA'} =~ /(Group|Role[\s2]*)\:\s(\w
++\s\w+)\s*/g ){
                ${$ref}{$k}{$1} = $2;
        }
        print "\n\nThis is the group: " . ${$ref}{$k}{Group};
        print "\nThis is the Role: " . ${$ref}{$k}{Role} . "\n\n";
[download]