Select Code to Download

for ('<1>', '<2>', '<3>') {
   $x =~ /^(.*<\d>)/$1$_/s;
}

$x =~ /^(.*<\d>)/$1<1><2><3>/s;