computer/programs/useless/secunet_contest/entry_2

eval ' '; eval  'exec perl      $0' #_________________ 
if $_ > $_++    ||      $_++    == ++$_;        $_ = q 
([>+++ + + [    <       < + +   + +     >_____________ 
>- ] < -        ]       < -     -       -       - -___ 
.> + + [        <       -       - -     - -     -_____ 
-> - ] <        .       - - . > +       +_____________ 
[> + + +        [       < < +   + +     >_____________ 
>- ] < -        ]       <       . - -   -       -_____ 
--      -_____________________________________________ 
.- - -  -_____________________________________________ 
-- - -  -_____________________________________________ 
.> + +  +_____________________________________________ 
[< + +  +_____________________________________________ 
++ > -  ]_____________________________________________ 
<. > +  +_____________________________________________ 
++ [ >  +_____________________________________________ 
++ + +________________________________________________ 
[<____________________________________________________ 
<-____________________________________________________ 
---->>-]<-]<------);print`./bf<$0`;print`./ws<$0`#____

[ Brainf*** | Whitespace | Perl | Shell ]

Whitespace ignores all characters not highlighted and
prints "secunet". ( = blank, = tab, = newline.)

This program prints "secunet".

It is polyglot (quadrilingual)
and can be executed with Perl,
Whitespace, Brainf*** and Unix
shells like bash, sh and ksh.

(More about Whitespace.)
(More about Brainf***.)

The Whitespace code is written
by Chris Amthor. The Brainf***
code is by Sascha Ziemann.

Download the source.

Explanation:

We assume you have a Whitespace
interpreter "ws" and a Brainf***
interpreter "bf" in your working
directory. For a better understan-
ding you can highlight the code.