>perl -le"sub f { 1 }  for (1..2) { if (my $r = f()) { next }  print '!' }"

>perl -le"sub f { 1 }  for (1..2) { { my $r = f(); if ($r) { next } }  print '!' }"
!
!