#!/usr/bin/perl --

use strict;
use warnings;

use Data::Dumper;

my $file = '1|0||34|0|123';
print "file is $file\n";

my @m_file = map { length $_ ? $_ : 'default' } split /\|/, $file;

print Dumper(\@m_file);
__END__
file is 1|0||34|0|123
$VAR1 = [
          '1',
          '0',
          'default',
          '34',
          '0',
          '123'
        ];
[download]