Select Code to Download

$string =~ s/find /replace/g;
$string =~ s/find /replace/gs;

open (FIN, "$inputfile") || die("Cannot read the input file");
local $/;
...
#and

$string =~ s/find /replace/gs;