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

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

opendir(DIR, ".") 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;