#!perl -pl
@n=!s/\w+/\$n[$&]/g..9;$_=eval