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