open(my $fh, ...)

##</code><code>##

( my $x = $y ) =~ s/.../.../;