Help for this page
exists $mp3->{$_} and $mp3->{$_}->remove_tag() for qw(ID3v1 ID3v2);
$mp3->{$_}->remove_tag() for grep exists $mp3->{$_}, qw(ID3v1 ID3v2);