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