my ($result3, $tmp3) = split /\|/ ,$result2;   # O

my ($result3, $tmp3) = split "\|" ,$result2;  # X

(https://www.biostars.org/p/99100/)