I'm 100% sure that those who write golfs don't use them in production.

The same can't be said for those who don't write golfs...

11 years ago, shortly after starting to use Perl, my client demanded that I implement "encryption". I had no idea how encryption worked, or how to implement it in Perl. CPAN was young, and not nearly as rich as it is today.

So I searched Google, and found this: RSA in 3 lines:

   #!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj 
   $/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1 
   lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)
[download]

This was used by my client for years to encrypt and transport customer data from a website via FTP.

It worked, but I wouldn't recommend the practice :)

Clint