perl -e '$foo = 12345; $foo =~ s/(\d\d)/func(@+[0])/ge; sub func { print "@_\n"  }'