my ( $output ) = $char =~ /^.{5}(.*).{5}\z/s;