Executando uma substituição de regex Perl

Supondo que eu tenha o IP10.23.233.34 Eu gostaria de simplesmente trocar o233 para234. O primeiro, segundo e último octeto são desconhecidos. O terceiro octeto é233 ou234. Eu quero fazer a substituição de tal forma que ele corresponda ao IP, subs e mantém todo o resto enquanto ainda muda o último octeto. Por exemplo:

Entrada:10.23.233.34

s/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){}233\.(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){}234\.(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/

Saída:10.23.234.34

questionAnswers(4)

yourAnswerToTheQuestion