my $ext = ".htm";
my $filename = "filename.htm";

if ($ext eq substr ($filename, -4)) {
   #whatever
}
else {
   #whatever else
}