open(I,'ipconfig /all |');
while(<I>){
   next unless /Physical Address/;
    /:/;  
    chomp;
    tr/-//d;
   $new_string = substr($_, -6);
   
  print " new string is : hhh" . $new_string . "kk"  . "\n";
    last;
}