The only catch is that you can execute only one statement per iteration/condition with this syntax.

That's where do blocks come in handy :-)

knoppix@Microknoppix:~$ perl -E '
> $sayIt = 1;
> do {
>    say q{Hello};
>    say q{World};
>    } if $sayIt;'
Hello
World
knoppix@Microknoppix:~$
[download]

I hope this is of interest.