A more literal interpretation:

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