#!/usr/bin/perl -w 
-T

print "Please enter text for string search? \n";

$search=<STDIN>;

chop $search;

opendir(DIR, ".");

@files = grep (/\.jpg|\.jpeg|\.JPEG|\.JPG/, readdir(DIR))
 and ($_ =~ m/\.'$search'/, readdir(DIR));

closedir(DIR);

foreach $file (@files) {
   
	print "$file\n";

}