fix perl code for patching

Link: https://github.com/kbase/assembly/issues/50
Signed-off-by: Sébastien Boisvert <boisvert@anl.gov>