$ perl -wE 'sub f{say $_[0] unless $_[0] % 33;exit if $_[0] >= 99;f($_[0]+1)};f(1)'
33
66
99
ken@ganymede: ~/tmp
$ perl -wE 'sub f{say $_[0] unless $_[0] % 33;exit if $_[0] >= 100;f($_[0]+1)};f(1)'
33
66
99
Deep recursion on subroutine "main::f" at -e line 1.