$_=q(ab cdefg);
$x=q($1,);
s#(^\w+)# my $sub = $1; $x=~s/\$1/$sub/; $x #e;
print;