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