#!/usr/bin/perl
use strict;
use warnings;

print "Please enter text for string search: ";
my $search=<STDIN>;
chomp $search;

print "Please specific a directory: ";
my $directory=<STDIN>;
chomp $directory;

opendir(DIR, $directory) or die "Cannot open dir ($!)\n";
while (my $file = readdir(DIR)) {
   
	print "$file\n" if ( $file =~ /$search\.jpg|$search\.jpeg/i );
}
closedir(DIR);
exit 0;