Select Code to Download

my @parts = split '|', $id; # ouch! what trivial error! is: /\|/ see c
+horoba below
...
# or simply 

my $filename = (split  '|', $id)[0]; # ouch! what trivial error! is: /
+\|/ see choroba below