%perl -w -Mstrict -e "my ($v) = 'a'; print $v;"
a