#! C:/Perl/bin/perl

use strict;
use warnings;

my  $pattern = "JEJE";
my  $string = "EJKJUJHJDJEJEJEDEJOJOJJJAHJHJSHJEFEJUJEJUJKIJS";

my  @pattern_list = split //, $pattern;
my  $pattern_length = @pattern_list;

for my $x ( 0..((length $string) - $pattern_length) ){
    my $test_string = substr $string, $x, $pattern_length;
    my @result_array = split //, $test_string;
    my $score = 0;
    for my $y ( 0..$#pattern_list ){
        $score++ if $pattern_list[$y] eq $result_array[$y];
    }
    if( $score > 1 ){
        print "String: $test_string, position: $x, score: $score\n";
    }
}