use 5.010;

my $str = '<1> <2> <3>';

$str =~ s/.*\K<\d>/<4>/;
say $str;
__END__
<1> <2> <4>