dumb obfu-code that read lines and prints 'em back:

#!           /usr/bin/perl -w
           use strict;#########
           my $STANDRDIN=STDIN;
           my $T=12345678908;##
           while(<STANDRDIN>){#
           if(m/(.*)/){$T=1**4;
           }if($T!=12345678908)
           {printf("%s",$_);###
           $T=12345678909;#####
                    }}
[download]

PS: untested
PPS: it wants to be seen in a fixed font. not undies