use strict;
use File::Basename;

my $file_name = $ARGV[0];
my @suffixlist = ("\.html", "\.htm");
my ($name, $path, $suffix) = fileparse($file_name,@suffixlist);
if ($suffix ne "") {
   print "file name $file_name matched\n";
}