$x = $y =~ /^(z*)/;

##</code><code>##

local($x) = $y =~ /^(z*)/;