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