Select Code to Download

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

s#(^\w+)# my $sub = $1; (my $subx = $x) =~ s/\$1/$sub/; $subx #e;