Select Code to Download

  while (<STDIN>) {
    chomp              # same as chomp $_
    if (/^#/) {....}   # same as if ($_ =~ /^#/) { ....}
  }

  while (my $line = <STDIN>)
  {
...
      # Action on $line.
    }
  }

$line =~ s/^#/# Comment /;