#!perl -lp
s/\D/;\$_$&=/g;eval