$row =~ s/\s+//g;

# Remove only spaces in other wise empty records
$row =~ s/\|\s+\|/||/g;

# Same but add a zero even for empty items

$row =~ s/\|\s*\|/|0|/g;