Select Code to Download

while (my $line = <INFILE>) {
   my ($date, $description, $amount) = split /\t/, $line;
...
      # Amount not found...
   }
}

while (my $line = <INFILE>) {
   if ($line =~ /(-?\$\d*\.\d*)/) {
...
      # Amount not found...
   }
}