linux-l: perl und regexpr

[Ulrich Wiederhold]

Hallo,
mal wieder ein kleines Perl-Problem, womit ich einfach nicht
weiterkomme.
Ich möchte bei einem String alle Zeichen vor einer bestimmten Zeichen,
z.b. @ abschneiden und alle Zeichen nach einer bestimmten Zeichenkette,
also z.B. .de. Das Mittelstück will ich weiterverwenden.

Meine Versuche sind bisweilen an folgendem gescheitert!
:(

$var[0] =~ s/^(.*)(@.*de)(.*)$/$2/;


Wo ist der Fehler? Ich habe X Möglichkeiten ausprobiert! Davor und
dahinter können auch Leerzeichen oder tabs etc sein...
:)

Wann verwendet man eigentich : anstelle von /? Habe ich beides gesehen!

Gruß
uli