Most mi bajod a perl kóddal? ;-) $_[0] =~ /[ |\t|\r|\n]*\"?([^\"]+\"?@[^ <>\t]+\.[^ <>\t][^ <>\t]+)[ |\t|\r|\n]*/; -- A főnököm mindig megtartja amit ígér, ha pénzt ígér azt is!