$ perl -le'my $x = local  $s  = "foo"; print $x'
foo

$ perl -le'my $x = local ($s) = "foo"; print $x'
1