#!/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 directory: $directory \n";

my @files = grep{   m/$search\.jpg$/i 
                         or
                    m/$search\.jpeg$/i
                }readdir (DIR);

print "No files found in $directory\n" unless @files;

foreach my $file (@files)
{
   print "$directory/$file\n";
}