$perl -0nE 'say substr($_,0,8)=~ y/\n//' ex
2
perl -0nE exp
отбрасывает ввод в $ _
и выполняет exp substr (string, 0,8 )
выбирает первые 8 байтов y / \ n //
удаляет \ n
и возвращает его номер var=$var
When the variable is assigned a value, all upper-case characters are converted to lower-case.
unset var; var=HELLO; declare -l var=$var; declare -p var;
declare -l var="hello"