$template = "some sentence x";
for $val (1..4) {
  ($foo = $template) =~ s/x/$val/;
  print "$val $foo\n";
}