dir /b/S | perl -pe "BEGIN { chomp(@ARGV = <STDIN>) } s#\bGPP\b#Arjun#i;" -i.bak