Select Code to Download

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

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