if (lc($type) eq 'cr') { $foo = 1 }

-or-

if ($type eq 'cr' or $type eq 'CR') { $foo = 1 }

-or-

if ($type =~ /CR/i) { $foo = 1 }