$_ = "3/1/2006 0:00:00"; s/ .*//; $_ = (split)[0]; $_ = $1 if m/(.*) /; ($_) = m/(.*) /; s/ 0:00:00//;