Help for this page

Select Code to Download

Select or download this

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

Select or download this

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