delete $file with a suffix if $file with other suffix exists

foo.pl

#!/usr/bin/perl
# vim: ft=perl:fdm=marker:fmr=#<,#>:fen:et:sw=2:
# abstract: delete $file with a suffix if $file with other suffix exists
use strict;
use warnings FATAL => 'all';
use vars     qw($VERSION);
use autodie  qw(:all);

use utf8;
use open qw(:std :utf8);

use File::Basename;

my @files = glob('*');
my @mods;

for my $f(@files) {
  my($filename, undef, $suffix) = fileparse($f, qr/[.][^.]*/);
  if($suffix !~ m/\.mp3/i) {
    push(@mods, "$filename$suffix");
    if(-f "$filename.mp3") {
      unlink "$filename.mp3" or warn "Could not unlink $filename.mp3: $!"
    }
  }
}


__DATA__
.ahx
.bp
.fc14
.it
.mid
.MID
.mo3
.mod
.ogg
.s3m
.sc68
.v2m
.wav
.xm
.ym