sub id3() { 
$i = 0; 
    
   while ($i < $sizeOfFiles) { 
    
     $mp3_file = new MP3::ID3v1Tag($files[$i]); 
    
    $artist = $mp3_file->get_artist(); 
    $album = $mp3_file->get_album(); 
    $title = $mp3_file->get_title(); 
    
    #Titelnummer suchen 
    $files[$i] =~ /(\d*)/; 
       
      rename $files[$i], "$artist - $album -$1- $title"; 
    $i++; 
  
   }#while 
    
}#end id3