Help for this page
my $string = "|90|93|foo|bar|91|92|95|96|906|"; ... print $result; __END__ |X|X|foo|bar|X|X|X|X|906|
split /\|/ $string
join "|"