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;