#!/usr/bin/perl
 
print "Please enter text for search? \n"; 
 
$search=<STDIN>; 
 
chop $search; 
 
opendir(DIR, "."); 
 
@files = grep (/\.jpg|\.jpeg|\.JPEG|\.JPG/, readdir(DIR)); 
 
closedir(DIR); 
 
foreach $file (@files) { 
    
	print "$file\n";