my ($start, $end) = $char =~ /^(\S{6}).*(\S{6})$/;