The parentheses around $x in
local($x) = $y =~ /^(z*)/;
force the list context. Try:
local $x = $y =~ /^(z*)/;
instead.

--bwana147