my($addr,$mac) = (split(/s+/))[0,2];
You maybe would check your scripts carefully at first. Here should be: my($addr,$mac) = (split(/\s+/))[0,2]; You have lost the '\' before 's+' in your regex. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>