#!perl -pl
s/\pL/\$$&/g;$_=eval"$_;"x4