#!perl -pl
s/\W/"\$_@{[$&^v1]}=\$'"/geer