Another way to do it is with the File::Basename module. For example:

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";
}
[download]

It's overkill for this simple example, but it could be useful if you want to break up and test pieces of the file name and path in a portable way.