Как удалить / удалить файл

AO (N) может быть достигнуто с помощью одного слота perl:

perl -e 'while (<>) { if (length > length $max) { $max=$_}}; print $max'

(где machin - это имя файла)

cat machin | perl -e 'while (<>) { if (length > length $max) { $max=$_}}; print $max'

или

perl -e 'while (<>) { if (length > length $max) { $max=$_}}; print $max' machin

или (менее ясно, но короче)

perl -ne 'if(length>length$m){$m=$_};END{print$m}' machin