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