DB<101> @a = 'a'..'d'
 => ("a", "b", "c", "d")

  DB<102> 'c' =~ /[^@a]/

  DB<103> 'c' =~ /[@a]/
 => 1

  DB<104> $re=qr/[^@a]/
 => qr/[^a b c d]/