use File::Basename;

while (<DATA>) {
    chomp;
    ($name,undef,$suffix) = fileparse($_,'.xlsx','.pdf');
    print "$name$suffix\n" if $suffix;
}

__DATA__
perl.pl
tar.tgz
excel.xlsx
pdf.pdf
ruby.rb
[download]