Expression Modifiers in Perl

For if, unless, while and until there is a shortcut syntax.

(do_this) if (this_is_true)

(do_this) unless (this_is_true)

(do_this) while (this_is_true)

(do_this) until (this_is_true)