#!/usr/bin/perl
open FILE, "/usr/share/dict/words";%ar = (); 
while (<FILE>) { chomp $_; $ar{$_}=1; } close FILE;
foreach $w (keys %ar) { if ($w =~ /^s(\w)(\w+)\1(\w+)\1$/) {
$m1 = $2; $m2 = $3; foreach $w1 (keys %ar) {
if ($w1 =~ /^(\w+)$m1(\w+)$/) { if ($ar{$1.$m2.$2} == 1) {
print "echo $w1 | sed $w => $1$m2$2\n"; } } } } }