$rec = 'has|trailing|pipes|||';
print(scalar(split(/\|/, $rec    )), "\n");  # 3
print(scalar(split(/\|/, $rec, -1)), "\n");  # 6