#!/usr/bin/perl -p

s/(\d+\.\d+\.\d+\.)(\d+)/$1${\($2-1)}/;