#!/usr/bin/perl -w
#by Torben Menke
#http://tokes.to.funpic.de
# removes the id3-tags from mp3 files
# needs my files.pl

use strict;
use warnings;
use MP3::Tag; # http://search.cpan.org/~ilyaz/MP3-Tag-0.9701/
use Encode;
use Data::Dumper;

# include my file+directory handling subs
unshift (@INC, $ENV{HOME}.'/bin/perl-subs');
require "files.pl";


foreach my $filename (getsubfiles(@ARGV)){
my $str = ((remove_id3_tag($filename) > 0) ? "cleaned":"ignored");
print "$str $filename\n";
}

sub remove_id3_tag {
my $filename = shift;
my $cleaned = 0;
my $mp3 = MP3::Tag->new($filename);
# scan file for existing tags
$mp3->get_tags;
if (exists $mp3->{ID3v1}) {
$mp3->{ID3v1}->remove_tag;
$cleaned++;
}
if (exists $mp3->{ID3v2}) {
$mp3->{ID3v2}->remove_tag;
$cleaned++;
}
return $cleaned;
}

---

Hope you found what you where looking for. Feel free to drop me a line
Torben