my $match = ".*weekly message.*";
my $t_subject = $self->TicketObj->Subject;
if ( $t_subject !~ /$match/i ) {
    return 0; 
}
else { 
    return 1; 
} 
my $newqueue = "To be deleted";
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;