#!/usr/bin/perl
use strict;
use warnings;

my $str="Peter 22 und der Wolf 12 haben sich um 18 Uhr getroffen";
my $limit=15;

$str=~s/(\d+)/$1>$limit?$1+1:$1/egs;

print $str;