my ( $output ) = $char =~ /(?<=^\S{5})(\S+)(?=\S{5}\z)/;