String aufteilen

[Steve]

Hallo,

ich möchte aus dem String "[e-mail]" den Vornamen und den Nachnamen extrahieren und Variablen zuweisen.
Ich habe folgenden Lösungsansatz:

my @name;

@name = split(/./, "[e-mail]");
print "$name[0] , $name[1]}";

Leider sind die Vars leer! Und wie bekomme ich "@domain.de" weg?
Nochmals SPLIT anwenden?

Weiss jemand eine Lösung?

Danke,
Steve