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