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