$string =~ s/$search/
    warn "Lets see what we're evaling\n$replace\n\n\n";
    eval $replace;
/ge;