Объединить несколько операторов в выражение в Perl?

Question

Возможно ли комбинировать несколько операторов в одном выражении? Блок может это сделать, но мне интересно, можно ли их упаковать в выражение.

Answer 1

Это точно do BLOCK Цель.

Например,

my $file = do { 
    open(my $fh, '<', $qfn) or die $!; 
    local $/; 
    <$fh> 
};