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