if (substr($filename, -length($ext)) eq $ext)
{
	# do stuff
}
else
{
	# do other stuff
}