Select Code to Download

my $template = 'aaa <%xx%> bbb';
my $repl = substr $template, index($template, '<%xx%>'), length('<%xx%
+>'), '//div[@id="abc"]';
print $template; # aaa //div[@id="abc"] bbb