Wordmerge(wordmergeapp.com)

  #!/usr/bin/perl 
  $PRESUF=@ARGV?$ARGV[0]:5;while(<STDIN>){chomp;($_=lc($_)) =~ s/'.*//;next if(length($_)<$PRESUF);$BYSUF{substr($_,length($_)-$PRESUF,$PRESUF)}{$_}=1;$BYPRE{substr($_,0,$PRESUF)}{$_}=1;$D{$_}=0;}foreach $pre (keys %BYPRE) {if(exists $BYSUF{$pre}) {foreach $w1 (keys %{$BYPRE{$pre}}) {foreach $w2 (keys %{$BYSUF{$pre}}) {next if($w1 eq $w2 or $w1 =~ m/$w2/ or $w2 =~ m/$w1/);my $o = $w2.substr($w1,$PRESUF);print "$o (from '$w1' and '$w2')\n" if(++$D{$o} == 1);}}}}