my $dateonly = (  split(' ', '7/19/2005 4:50:44PM')  )[0];
print "$dateonly\n";