Thanks all!!! Text::ParseWords was exactly what I needed!

My initial split:

@ColumnValue = split(/~/ , $_);

Fixed by

@ColumnValue = quotewords('~', 1, $_);

Way more elegant than the convoluted IF regex concatenation path that I was going down!