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