Help for this page

Select Code to Download

Select or download this

$text = 'a|b|c|||||||||e||||';
@array = split(/\|/,$text);
print join '-', @array;

Select or download this

$text = 'a|b|c|||||||||e||||';  # our input might have holes in it!
$text =~ s#\|\|#\|NULL\|#g;  # make holes read as 'NULL'
@array = map { $_ eq 'NULL' ? undef : $_ } split(/\|/,$text);  
print join '-', @array;