$_ = q(ab cdefg);
$x = q($1,);
s/(^\w+)/qq("$x")/ee;
print;