Select Code to Download

@lineData = split(/\,/, $line); 

...
This is causing your comparison:

if($lineData[18] == $date) to be wrong

my $line_date = "$lineData[0]/$lineData[1]/$lineData[2]";
if($line_date eq $date){
  print "equal\n";
}