@LineDetails = split /\04/, $line;    # ... or
@LineDetails = split chr(4), $line;