language: Perl (perl 5.12.1)
date: 101 days 19 hours ago
link:
visibility: public 
1
2
3
4

while(<STDIN>){
        shom;
        print "$_\n" if($_!~ /^$/);
}