- my $info;
- $info = thaw scalar flacinfo $file if $file =~ /\.flac$/i;
- $info = thaw scalar mp3info $file if $file =~ /\.mp3$/i;
- $info = thaw scalar vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
- $info = thaw scalar mp4info $file if $file =~ /\.mp4|\.aac|\.m4a$/i;
- next unless defined $info;
- my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga', '.mp4', '.aac', '.m4a';
+ my ($basename, undef, $suffix) = fileparse $file, keys %info;