129510528832.log.log: No such file or directory
129510528832.log.inx: No such file or directory
129510528832.log.pdf: No such file or directory

for my $extension ( qw/log inx pdf/ ) {
 my $delete_me = $basename'.'$extension;
 unlink $delete_me or warn "$delete_me: $!\n";
}

String found where operator expected at ./loeschen3.pl line 39, near "$basename '.'"
        (Missing operator before '.'?)
Scalar found where operator expected at ./loeschen3.pl line 39, near "'.' $extension"
        (Missing operator before  $extension?)
syntax error at ./loeschen3.pl line 39, near "$basename '.'"

perl -MFile::Basename -e 'print basename("/etc/apache/httpd.conf");'

for my $extension ( qw/log inx pdf/ ) {
 my $delete_me = $basename . '.' . $extension;
          print "Basename $basename gefunden\n";
 unlink $delete_me or warn "$delete_me: $!\n";
}

Basename 129510528832.log gefunden
129510528832.log.pdf: No such file or directory

sub delete_files{
   my ($dir,$name) = @_;
   my ($basename) = basename($name);
   unlink $basename.'.'.$_ for(qw(log inx pdf));
}

sub delete_files{
    my ($dir,$name) = @_;
    # Endung .log abschneiden
    unless ($name =~ s/\.log$//) {
        warn "$name endet nicht auf .log, nichts gelöscht.\n";
        return;
    }
    for my $suffix (qw/log inx pdf/) {
        my $filepath = "$dir/$name.$suffix";
        unlink $filepath or warn "kann $filepath nicht löschen: $!\n";
    }
}

for my $extension ( qw/log inx pdf/ ) {
# ersetze die extension; 
substr($basename,-3,3,$extension);

unlink $basename or warn "$basename: $!\n";
}

  my ($basename) = basename($name);

  my ($basename) = $name =~ m!/([^/]+)\..*?$!;