$type eq 'A' or $type eq 'B' or $type eq 'C' or $type eq 'D';

上記の記述なんですが、もうちょい短くならないでしょうか？
$typeと4回書かれているのはなんか俺の感性に反するんですが…。
それだけの理由です。