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

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

my $i;
my @a = split(" ", $str);
for ($i=0; $i<=$#a; $i++) {
    if ($a[$i] !~ /\D/ && $a[$i] > 15) {
        $a[$i]++;
    }
}
$str = join(" ", @a);
print "$str\n";