Add search and replace in perl.md