( echo '<foo>3</foo>'; echo '<foo>14</foo>'; echo '<foo>159</foo>') | perl -e '

my $x = 0;
while (my $l = <>) {
    $x++; $l =~ s/\d+/$x/;
    print $l;
}'
<foo>1</foo>
<foo>2</foo>
<foo>3</foo>