open(STATUS, "ipconfig /all |");
while (<STATUS>) {
     print $_  if ( /Physical/ );
}
close(STATUS);
__END__
    Physical. . . . : xx-xx-xx ...