lower and upper case

[Matti Maekitalo]

use Mosche;

Wie kann ich mit Perl überprüfen ob ein String, der nur aus einem Zeichen besteht, lower oder uppercase ist?

if ($var == "GROSS geschrieben"){    #gross geschrieben

Wie wäre es mit einem einfachen:
if ($var eq uc($var)) {
   gross();
} elsif ($var eq lc($var)) {
   klein();
} else {
   gemischter_string();
}

Geht auch mit mehr als einem Zeichen.

use Tschoe qw(Matti);