Wyrażenia regularne

Dlaczego poniższy kod, nie działa oczekiwanie?

$string = "Skya.";
if ($string =~ /[^aeiouy]/) {
   print "$string nie zawiera zadnych samoglosek\n";
}

Nie znam się na perlu, ale robiąc podobne wyrażenie regularne na przykład w Delphi z użyciem TRegExpr z http://regexpstudio.com/TRegExpr/TRegExpr.html - zapisał bym takie wyrażenie raczej jako ([aeiouy]+). Ale na pewno nie z ^.

Problem rozwiązany ;)

/[^aeiouy]/ - zwróci prawdę, jeżeli jakakolwiek litera będzie spółgłoską.

Dzięki za próby pomocy.
Btw zdziwiłem się, że tak niewiele osób zna Perl'a ;p