Обработка в perl массива строк с использованием операторов map и s///

Задача: используя операторы map и s/// обработать массив строк согласно заданному регулярному выражению.

Конструкция будет иметь следующий вид:

map {$_ =~ s/^\s*(\S+\s+\d+)\s+\d+\s+\S+/$1/; $_} @test

или в общем виде:

map {$_ =~ s/reg//; $_} @test

Источник: mailman.linuxchix.org.