<-- $string = '[EMAIL PROTECTED] [EMAIL PROTECTED],[EMAIL PROTECTED]'; $string =~ /^(.*)[,;-_ ]+.*$/; print $1; -->
You can add all seperator you wants in the [,;-_ ] Olivier Gerault _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
