open (FILE,"<$filename") or die "Cannot open: $!";
map{s/stuff/other_stuff/g;print}(<FILE>);