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