How about

@fields = /([^|]*)\|?/g;
[download]

Update: You can even do:

my ( $f1, $f2, $f3, $f4, @v ) = /([^|]*)\|?/g;
[download]

defined will tell whether a field was provided or not.
length will tell whether a field was left blank or not.