#!/usr/bin/perl

$_ = "2009-11-05 15:12:31";

$prep = s/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]//;
@date = split /-/, $_;


print "$date[0], $date[1], $date[2] \n";