Mineasdadasdsaasdadasdasdsasda

use strict; use MP3::Tag; opendir(MP3,'.') or die; my @dir = readdir(MP3) or die; foreach my $path (@dir) { next if $path =~ /^\.\.?$/o; my $mp3 = MP3::Tag->new($path); die unless defined $mp3; my @info = split(/_-_/,$path,3); $info[2] =~ s/\.mp3$//oi; $info[2] = join(' ',map { qq(\u$_) } split(/_/,$info[2])); $mp3->update_tags({title => pop @info}); $mp3->close(); print pop @info, qq( - updated\n);}