7. Check extension

Use regex to check a file extension:

$ perl -e '$filename="clip.pl.txt"; ($filename =~ /\.pl$/) ? print("ok") : print("not ok");'; # Output: not ok