$date =~ /\b(\d{4})(\d{2})(\d{2})\b/;
print "$1 $2 $3";