last if $line=~/^$/;
   # or using length..

##</code><code>##

while ( chomp ( $_ = <STDIN>) and length $_){
    print "  [$_]\n";
}