# Localize expression into $_ using a single-value 'for'.
# $_ is default for many Perl functions.
for ($some_very_long_expression_you_will_use_more_than_once) {
  die unless defined;
  die unless /^expected/;
  do_something($_);
  do_something_else($_);
}