#!perl -pl
s/\W/;\$_$&=/g;eval