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