$tekst="Aasal olid 20 poni ja 104 hobust";
 #numbrid vähendatakse ühe võrra
$tekst =~ s/[0-9]+/sprintf("%d", ($&-1))/eg;
print "$tekst\n";