Help for this page
perl -le 'foreach $file qw(a.JPG b.exe c.gif d.png e.doc f.xls){ next +if $file !~ /\.(jpg|png|gif)$/i;print $file}'