$,="\n";
print $find,$replace,$string;