my @split = $data =~ /\G(Th|Sa|Su|[MTWF]|\d)/g;