How to do recursive search and replace using Perl on command line in Linux/Unix