[Perl] Cutting text strings

[Yaron Golan]

Hi all,
What is the best way to take only the user name from an E-mail address?
e.g.
 
$EMailAdress = "yaron.golan at SeabridgeNetworks.com";
 
I need only the "yaron.golan"
 
In tcsh I'd do something like : echo $EMailAdress | tr '@' ' ' | awk {print
$1}'
What is the best way to "perl" it ?
 
Tia,
YG


---------------------------------------------------------------
Yaron Golan
Configuration Management
SEABRIDGE
Tel: +972  9  7751179 
Fax: +972  9  7751212
E-mail: yaron.golan at SeabridgeNetworks.com



-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://perl.org.il/pipermail/perl/attachments/20020207/3cacef5b/attachment.htm