#! Perl -w use strict; open (READ, "ipconfig /all|") or die "$!"; while () { chomp; if (/Physical Address/) { my @pieces = split(/:/); print $pieces[1]; } } close READ;