awk как perl (\w+) print $1

что-то вроде

awk '/^==\w+==$/ { match($0, /\w+/, a); print a[0]; }'

Еще так:

awk 'BEGIN {FS="==="}; NF == 3 {print $2}'

Это, конечно, не то :-), но если соблюдается условие, что в тексте нет других строк содержащих '==='(в кол-ве 2, если быть точным), кроме нужных, то можно использовать и это сэкономит время обработки.

Или с патчем :-):

awk 'BEGIN {FS="==="}; (NF == 3) && (/^===\w+===$/) {print $2}'

замечание по форме задания вопроса: неправильно полагать что все кто знает awk, знает и перл

А зачем тогда нужен awk, если перл может делать то же самое?

Я считал что в скриптах есть awk только у тех, кто не знает других языков (например перла)

> А зачем тогда нужен awk, если перл может делать то же самое?

ты меня спрашиваешь? это автор так свормулировал вопрос: хочу на awk сделать то же самое что делает эта строка на перле. (тем самым отсеяв тех кто может быть и мог бы ему помочь но не знает перл)

> Я считал что в скриптах есть awk только у тех, кто не знает других языков (например перла)

не знаю.. awk есть в позиксе. Перла нет..

> А зачем тогда нужен awk, если перл может делать то же самое?

1. awk был до перла, и перл многое у него взял.

2. перл здоровый и меньше со временем не становится.

3. awk стандартизирован, как уже выше сказали.

Не согласен.
Т.к.:
1) Я не полагал что _все_ кто знает awk знает и perl, мне нужен был максимум только _один_ такой человек.
2) Если бы я спросил "как в программе реализующей механизм обработки регулярных выражений ДКА, обойтись без сохраняющих круглых скобок как это сделано в НКА?" Ты думаешь было бы лучше?

По делу: Всем спасибо, за обсуждение тоже...
Special thanks to phoenix and Lego_12239.
:-)