sub f {
   my ($x) = @_;
   '' =~ /(?{ print "$x\n" })/;
}

f(4);  # 4
f(5);  # 4!!