in reply to print number of characters after specific character

Perhaps split using a look-ahead?

$ perl -E ' > $str = q{471234973798375754773971832374974447889743725345932}; > say for split m{(?=47)}, $str;' 47123497379837575 47739718323749744 47889743725345932 $

Cheers,

JohnGG