DB<133> $x =~ s/ (?{ print "\$2 undefined" unless $2 })/ /g
$2 undefined