И вот версия Perl:
< inputfile perl -ne 's/^ +(.*) +TRAP-TYPE/$1/&&print'
-n: помещает цикл while (<>) {[...]} вокруг скрипта -e: читает скрипт из аргументов Perl :
-n: помещает цикл while (<>) {[...]} вокруг скрипта /: запускает шаблон -e: читает скрипт из аргументов +: соответствует одному или нескольким символам (.*): соответствует и группирует любое количество символов перед одним или несколькими символами TRAP-TYPE: соответствует строке TRAP-TYPE /: останавливает шаблон / запускает заменяющую строку $1: заменяет захваченную группу /: останавливает замену строки / запускает модификаторы