>perl -wMstrict -le
"my $start = 6;
 my $end   = 4;
 ;;
 my $s = '1 123456321 1234564321 '
       . '12345654321 123456654321 1234567654321 12345687654321'
       ;
 print qq{'$s'};
 ;;
 $s =~ s{ (?<! \d) \d{$start} \K  \d+  (?= \d{$end} (?! \d)) }
        { '_' x length ${^MATCH}                             }xmsgpe;
 print qq{'$s'};
"
'1 123456321 1234564321 12345654321 123456654321 1234567654321 12345687654321'
'1 123456321 1234564321 123456_4321 123456__4321 123456___4321 123456____4321'