use Modern::Perl;

while (<DATA>) {
    next if /^\s*case :$|^:|^struct/;
    print;
}

__DATA__

case :
   case :
case : keep me
: ignore this
keep this line
struct: get rid of me
 struct: but keep me