chomp($date); # remove newlines
chop($date);  # remove last char

$date =~ s/\s*$//; # remove trailing spaces

$date = substr($date,0,(length($date)-1)); # remove last char

($date) = $date =~ m/(.*)\s*$/; # i would imagine the slowest solution