Well, the canonical way is to use the standard module:

use warnings;
use strict;
use File::Basename;
my @extensions = qw/.html .htm .HTML .HTM/;
my $a = 'index.html';
my $basename = basename $a,@extensions;
print $basename;
[download]

--
Regards,
Helgi Briem
helgi AT decode DOT is