Use the \W character class to split the string. \W is the compliment of \w which is a-zA-Z0-9_

$string = "December 12, 1995";
($month,$day,$year) = split(/\W+/,$string);
print "$month\n$day\n$year";