$var = "Sun Apr 1 10:27:03 CDT"; 
if ($var =~ /(\w{3}\s+\w{3}\s+\d+)/) { 
    print $1."\n";
};