if (my $x = ...) { ... }
open(my $fh, ...)
read(..., my $buf, ...)
my $r = \my $s;