my ($weekday, $month, $day, $hours, $minutes, $seconds, $whatever) = split /[_:]/, 'mon_jan_01_16:00:33_t23.96-d568'