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