Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
my @m_file = map { ($_) ? $_  : 'default' } (split /\|/,$file); # try 
+w/ defined($_) as well

print Dumper(@m_file);

Select or download this
```
Output I want

...
34
0
123
```