Select Code to Download

#!/usr/bin/perl
my $foo="|abcxyz||fiuhs|";
for (split(/\|/,$foo)) {
   print "field is [$_]\n";
}

field is []
field is [abcxyz]
field is []
field is [fiuhs]