language: Perl (perl 5.12.1)
date: 107 days 18 hours ago
link:
visibility: public 
1
2
3
4
5

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