That's pretty tidy, for sure. It will even work on a DOS command line. Maybe you'd be interested in shortening what follows?

I worked an absurdly long time on it, trying to understand how hashes of arrays work. It borrows heavily from something by jcwren and from the Cookbook:

  perl -e ' use strict; foreach (map {split} map {lc}<>){
  push @{ $ARGV[0] {glue => sort split // }}, $_};
  foreach (values %{$ARGV[0]}){my %seen=(); my @anagrams=
  grep{ ! $seen{$_}++ } @$_ ; print join (" " => @anagrams>1 ?
  @anagrams : next ), $/ }'
[download]

This doesn't filter out non-alpha stuff, but it does eliminate duplicates. It's not quite as flexible as yours, either, but it does take words from STDIN ( - it's too long for in Windows, but it can be shortened - I'd leave in strict, though. There's funny stuff going on here that could cause unpredict- able results if the wrong thing is put on the command-line).

It will also take a redirect from any file (not just lists).

So, it could be used as "perl -e '..etc...' < ${pathto}/wirds to find anagram in that dictionary (yeesh). No globbing.

Or, it can be invoked as "perl -e '..etc..'__Type Words__ followed by CTRL-D to exit.
I hope it's at least amusing.
mkmcconn

Anyway, here's 12 more characters taken off (after Update2): perl -le'sub c{join"",sort split//,lc pop}$l=c pop;chop,c(lc)eq$l&&print for<>'

Here's 12 more characters taken off..

Nice.

-l switch to save 6 characters. Must remember that. In fact must learn a lot more of the command line switches.

I should really have spotted the spurious space at the start, the calling the sub without ()s, the needless $_, and being able to remove the () on the for by moving the for to the end though ...

That gets the actual 'executable' code down to 69 characters now, which I think is much more in keeping with the original "do it one line" ideal..

You want it in one line? Does it have to fit in 80 columns? :-) 

   --Larry Wall in <7349@jpl-devvax.JPL.NASA.GOV>

Tony