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