in reply to Problem using | char as delimiter for split
...split /\|/, $a; [download]
print "$num1\n"; ... [download]