#!/usr/bin/perl -lw
use strict;

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

{ no strict;

$JUNK = <<JUNK;
sorted([w.strip() for w in open('/usr/share/dict/words', 'r').readlines()
if set(list('abcdef')).issubset(set(list(w.strip())))], key=lambda x: len(x))
JUNK

print length $PERL, ' PERL: ', $PERL;
print length $JUNK, ' JUNK: ', $JUNK;
}

# I think junk could lose 4 spaces making it 148.
__END__
PERL: 144
JUNK: 152