perl -anF=\|,\\s -E 'for (my $i=1; $i<=$#F; $i+=2){print  $F[$i],qq|  |};print qq|\n|' < file.txt