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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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