I don't get it (I'm a different Anonymous)

Does this help?

#!/usr/bin/perl --
use strict; use warnings;
my $pattern = "JEJE";
my $string = "EJKJUJHJDJEJEJEDEJOJOJJJAHJHJSHJEFEJUJEJUJKIJS";
my $fuzzyPattern = fuzzUpEverySecond( $pattern );

print "$pattern\n$fuzzyPattern\n";
print " $string\n";
while( $string =~ m/($fuzzyPattern)/g ){
  
  print ' ' x ( pos($string) - length($1) -1 ), "^$1\n";
}

sub fuzzUpEverySecond {
    my( $pat ) = @_;
    $pat =~ s/(.)./$1./g;
    $pat;
}
__END__
JEJE
J.J.
 EJKJUJHJDJEJEJEDEJOJOJJJAHJHJSHJEFEJUJEJUJKIJS
^JKJU
    ^JHJD
        ^JEJE
                ^JOJO
                    ^JJJA
                         ^JHJS
                                  ^JUJE
                                      ^JUJK
[download]