Help for this page
my @tests = ( '', qw( 2|3||||| ... '|2|' :()(2)() '|2|3' :()(2)(3) '|2|3|' :()(2)(3)()
my @fields = split /\|/, $string.'|x'; pop @fields;