Wykonywanie podstawienia wyrażeń regularnych Perl

Zakładając, że mam adres IP10.23.233.34 Chciałbym po prostu zamienić233 dla234. Pierwszy, drugi i ostatni oktet są nieznane. Trzeci oktet też jest233 lub234. Chcę wykonać podstawienie w taki sposób, aby pasowało do IP, sub i zachowywało wszystko inne, jednocześnie przełączając ostatni oktet. Na przykład:

Wkład: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]?)/

Wydajność:10.23.234.34

questionAnswers(4)

yourAnswerToTheQuestion