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

foo('a');
foo('b');