Исправление fero, 07.04.15 16:44 (текущая версия) :
Видит Патрег, я не хотел... А что ты скажешь об этом?!
while (<>) {/regexp/; say $1;}
Исходная версия fero, 07.04.15 16:36:
while (<>) {~/regexp/; say $1;}