Create modify_refs.pl

First version