The data which is entered into the new publisher table is stored
in the creation script itself.
Modify the perl script so that it reads the data from a separate file,
rather than from the perl script itself.
You can hard-code the file name within the script.