perl -n -e '@p=split(/,/,$_); if (scalar(@p) == 8) { \
  print join("|",@p);} else {  $a = join("|",$p[0],$p[1],$p[2]); \
  shift(@p); shift(@p); shift(@p); $c = join("|", $p[$#p-3],$p[$#p-2], \
  $p[$#p-1],$p[$#p]); pop(@p); pop(@p); pop(@p); pop(@p); \
  print "$a|",join(",",@p),"|$c";}' A/NSRLFile.txt > /tmp/A-File.psv