use strict;
use warnings;
use Time::Piece;

<> =~ /([^,]+)/
  and my $dir = Time::Piece->strptime( "$1 2013", '%b %d %H:%M %Y' )->mdy('')
  or die "Unable to capture date string.";

if ( !-e $dir ) {
	mkdir $dir or die "Unable to create directory $dir: $!";
	print "Created dir: $dir\n";
}
else {
	print "Directory $dir already exists.\n";
}