c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @stuff = qw(
   A C B:Mild C:Severe B A:Severe Etc B:Severe And So On
   );
 ;;
 my @out = grep /Severe/, grep /A|B/, @stuff;
 dd \@out;
"
["A:Severe", "B:Severe"]