#!/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.