Исправление disarmer, 21.11.17 19:11 (текущая версия) :
[disarmer@desktop❱~]% perl -E 'LABEL:{print "hello\n" if grep { say; last LABEL } 1..31}' 1
Исходная версия disarmer, 21.11.17 19:11:
[disarmer@desktop❱~]% perl -E 'LABEL:for(1){print "hello\n" if grep { say; last LABEL } 1..31}' 1