if ($rtr_diag =~ m/^(SLOT.*$)/ && 
! /(Processor.*$)/|/(Switch.*$)/|/(Power.*$)/|/(Clock.*$)/ )

{ do stuff}