my $match = (".*SSL.*"|".*SSL Certificate.*"|".*VASCO.*");
my $t_subject = $self->TicketObj->Subject;
if ( $t_subject !~ /$match/i ) {
   return 0;
}
else {
   return 1;
} 
##</code><code>##

my $newqueue = "Key Management";
my $T_Obj = $self->TicketObj;

$RT::Logger->info("Auto assign ticket #". $T_Obj->id ." to queue #". $newqueue );
my ($status, $msg) = $T_Obj->SetQueue($newqueue);
unless ($status) {
    $RT::Logger->warning("unable to set new queue: $msg");
    return undef;
}
return 1;