my ($session_id, $last_action_date, $last_action_time) = $session =~ /^(\d\d)-(\d{10})-(\d{8})$/;