#!/usr/bin/perl
use 5.016;
use warnings;

# D:\_Perl_\PMonks\1053693.pl

my $str = q/471234xx3798375754712345678901234547zyxabcdefghjkl/;

my ($arr, @arr1, $arr1, $i);

my @arr = split /47/, $str;

for $arr ( @arr ) {
    @arr1 = split //, $arr;
    for $i (0 .. 9) { 
        no warnings 'uninitialized';
        $arr1 .= $arr1[$i];
        use warnings;
    }
    say "$arr1\n";
    undef $arr1;
}



=head output:

1234xx3798

1234567890

zyxabcdefg

=cut