perl -wMstrict -e
"for (@ARGV) {
  if ('Capri,Classic,Dart' =~ m{ (\Q$_\E) }xmsi) {
   print qq($_ is a $1 \n)
   }
  else {
   print qq($_ isn't a car \n)
   }
  }
" capri cLaSsIc foo
capri is a Capri
cLaSsIc is a Classic
foo isn't a car