my $foo = "stuff";
open FD, "file.txt";
@data = <FD>;
close FD;

foreach (@data) {
  s/XXYY/$foo/;
  print;
}