#!/usr/local/bin/perl

while ($line = <STDIN>) {
        $line =~ s/\d+/$&+1/eg;
        print ($line);
}
