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