my $foo = "stuff";
@data = <DATA>;

foreach (@data) {
  s/XXYY/$foo/;
  print;
}
__DATA__
<XXYY>
XXYY XXYY
test