Udfordring...

["Frank Nørvig" <sslug@sslug>]

Hejsa,

Jeg har modtaget følgende perl-sætning, som jeg har meget svært ved at
gennemskue. Ikke desto mindre, så fungerer den som opslag i en engelsk
ordbog:

perl -e'socket S,2,1,0;connect S,pack sa14,2,"\nD\321:\226\231";$/=select
S;$|=print"D ! @ARGV\nQ\n"
;print$/ <S>=~/51.*?^(.*?)^\./sm' laptop

Erstat evt. laptop med et andet engelsk ord.
Er der nogen der kan forklare mig hvad denne sætning gør, hvor den slår op,
og om man evt. kan slå op i andre ordbøger (evt. dansk) på denne måde?

Mvh Frank