...split /\|/, $a;

##</code><code>##

print "$num1\n";
...