my $string = '06roadking|Fate||||||||Fate||||||Alive|Alive|Alive|Alive|Alive|Alive';
$string =~ s/Fate.*?\KFate\|/\0/;
print $string;


##</code><code>##

06roadking|Fate||||||||NULL|||||Alive|Alive|Alive|Alive|Alive|Alive