Select Code to Download

sorted([w.strip() for w in open('/usr/share/dict/words', 'r').readline
+s()
if set(list('abcdef')).issubset(set(list(w.strip())))], key=lambda x: 
+len(x))

open$:,"</usr/share/dict/words";while(<$:>){next unless/(?=.*a)(?=.*b)
+(?=.*c)(?=.*d)(?=.*e)(?=.*f)/i;push@_,$_}@_=sort{length$a<=>length$b}
+@_'

open$:,"</usr/share/dict/words";while(<$:>){next unless/(?=.*a)(?=.*b)
+(?=.*c)(?=.*d)(?=.*e)(?=.*f)/i;push@_,$_}print for sort{length$a<=>le
+ngth$b}@_

open$:,"</usr/share/dict/words";while(<$:>){next unless/(?=.*a)(?=.*b)
+(?=.*c)(?=.*d)(?=.*e)(?=.*f)/i;push@_,$_}for(sort{length$a<=>length$b
+}@_){print;last}

#!/usr/bin/perl -lw
use strict;
...
PERL: 144
JUNK: 152