PERL replace function

This is a simple script that shows how to create a Replace Subroutine and call it from a script more easily by supplying 3 parameters EX: &Replace($FullString, $SearchThis, $ReplaceWithThis), similar to the VBScript function.