$_->{slots} = $1 if $_->{$check_slot} =~ m/$slot_regex/is;
}
$_->{slots} ||= $1 if $ical->{cal}->{'X-WR-CALDESC'} =~ m/$slot_regex/s;
$_->{slots} = $1 if $_->{$check_slot} =~ m/$slot_regex/is;
}
$_->{slots} ||= $1 if $ical->{cal}->{'X-WR-CALDESC'} =~ m/$slot_regex/s;