$foo = "some sentence x";
$val = 1;

while ($val < 5) {
  $foo =~ s/x/$val/;
  print "$val $foo\n";
  $val++;
}