Select Code to Download

while (my $line = <$fh>) {
  if ($line =~ tr/"//) {
...
  # now parse the $line just like you would normally do using the code
+ that you did not show us ;-)
  parse_line();
}