I like the idea from moritz.

One aspect about this that may not be clear is that Perl can generate and use dynamic regex's "on the fly" - meaning that your code can dynamically generate a regex as a string and that regex can be used in the code later on. This "dynamic run-time generation of regex's" is a "magical feature of Perl" - and it works great!

Update:

#!/usr/bin/perl -w
use strict;

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

# from the $pattern, generate a $regex like this:
my $regex = "JEJE|.EJE|J.JE|JE.E|JEJ.";

# and use it like this:
my (@matches) = $string =~ m/$regex/g;
print join ("\n", @matches), "\n";

__END__
prints:
JDJE
JEJE
JEFE
JUJE
[download]

I'm not sure what the desired output should be (overlapping or not).
The basic idea that I am saying is that you can generate a regex "on-the-fly" based upon some input and use it in subsequent code.

Update:
I am unsure about the fastest way (execution time-wise) to generate the combinations for the $regex - here is one attempt. This needs to be expanded to account for ".." two "anythings" in the pattern. But I think the basic idea is sound, generate a regex pattern dynamically, compile it, and run it against the input dataset.

#!/usr/bin/perl -w
use strict;

my $pattern  = "JEJE";
my @patterns = ($pattern);

for (my $i=0; $i<length($pattern); $i++)
{
   my $copy = $pattern;
   substr ($copy,$i,1) = ".";
   push @patterns, $copy;
}
print join("|",@patterns), "\n";

#prints: JEJE|.EJE|J.JE|JE.E|JEJ.
[download]

I'm not sure that something like this would be faster, might even be slower.. A 'C' implementation like this would be very fast, but in Perl, I am not sure.

for (my $i=0; $i<length($pattern); $i++)
{
   my $saved_char = substr ($pattern,$i,1);
   substr ($pattern,$i,1) = ".";
   push @patterns, $pattern;
   substr ($pattern,$i,1) = $saved_char;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.