Select Code to Download

while ($line = <>) {
  while ($line =~ s/\\\n//) {
...
  }
  # ... do useful stuff with $line here ...
}