#!perl -pl /\d+\+/;$-+=rand$&for 1..$_;$_+=$'+$-