$ perl -e ' $a="aa"; $b="a"; @m = $a=~ /([^$b])/i; print "@m\n"'

   $