my($wday, $mon, $mday, $time, $year) =
        $var =~ /\A(\S+) (\S+) (\S+) (\d+):/;

##</code><code>##

$var =~ /\A(\S+) (\S+) (\S+) (\d+):/;

##</code><code>##

(?:[SMTWF]) 
warning I know my syntax is off so please don't use this.