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