http://www.perlmonks.org?node_id=954776


in reply to Regular Expression for MAC Address

$ perl -MRegexp::Common -E 'say $RE{net}{MAC}' (?:(?:[0-9a-fA-F]{1,2}):(?:[0-9a-fA-F]{1,2}):(?:[0-9a-fA-F]{1,2}):(?:[ +0-9a-fA-F]{1,2}):(?:[0-9a-fA-F]{1,2}):(?:[0-9a-fA-F]{1,2}))