...
use String::approx 'amatch';
my $pattern = "JEJE";
my $string = "EJKJUJHJDJEJEJEDEJOJOJJJAHJHJSHJEFEJUJEJUJKIJS";
while (?=/$pattern/) {
...